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SIP_C_FIB_SIZE,SIP_A_FIB ; DESCRIPTOR FOR FILE IDENT BLOCK 
~ASCNAME ; ASCII NAME ATTRIBUTE 
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v04-000 DECLARATIONS =SEP=1984 04:04:4 SYSINI.SRCJSYSIN 


2c 


P 
PO mAR: 1 nt? 3) 


ee § 


3 
49 
§ 330 SIP_CLU_MSG: 
, it 5 «ASCIC \waiting to form or join VAXcluster\ 


a 80 GF GA 29 t3 oF 36 SB 92 GF bo 
2 65 oi 9 6C 8 88 41 ef 8 if 
5 
B18 mucone 
20 65 6C 69 66 20 6E 77 6F $f 6B 00° § 54 -ASCIC \known file List initialization error\ 
6C 61 69 74 69 6E 69 20 74 73 69 6C 029 
6F 72 72 65 20 6E 6F 69 74 61 7A $9 9E 
se OSke 
O2AB 355 
6 AB 336 PAGF ILNAM: 
59 53 2E 45 4C 49 46 45 47 41 50 99" 0 AB 5 .ASCIC \PAGEFILE.SYS\ 
OC O2AB 
6 BB 358 SWPFILNAM: 
59 53 2E 45 4C 49 46 50 41 57 53 99" oste 59 -ASCIC \SWAPFILE.SYS\ 
0C 028 
9 Bg 360 RMSF ILNAM: 
45 58 45 2E 53 4D 52 99" 0 C3 61 .ASCIC \RMS.EXE\ 
02CD 362 MSGF ILNAM: 
3A 45 47 41 53 53 45 4D 246 53 59 53 O2CD 36 .ASCI1 \SYSSMESSAGE:SYSMSG.EXE\ 
45 58 45 2E 47 53 40 53 59 53 0209 
00000016 ee 64 MSGF ILNAMSZ=.-MSGF ILNAM 
O2E 08 ; 
0 E 67 ; teeee PAGE FILE MUST BE FIRST 
5 E $9 SIP_A_NAMES: 
000002AB' 02E 0 .LONG PAGFILNAM ; FILENAME AND ERROR POINTER 
90000 B8' O2E7 371 “LONG SWPFILNAM : 
0002C5' O2€B rg “LONG RMSFILNAM : 
00000060 EF 3 .LONG 0 : END OF LIST 
46 3A 4D 45 54 53 59 53 2 53 59 53 FR 75 KQPNAM: .ASCII /SYSSSYSTEM:F11BXQP.EXE/ 
45 58 45 2E 50 51 58 42 31 31 FF 
00000016 09 ie: XQPNAMSIZ = .-XQPNAM 
9 378: 
: hi IMPURE_DATA SIP_RWDATA_PAGE , PAGE 
0 6 1: THIS BUFFER IS USED FOR THE QUORUM FILE LOOKUP AND TO READ 
‘ 3 THE SYSTEM DUMP FILE FOR ERROR LOG INFORMATION 
4 $1P_A_ERLBUFFER: F 
0000060 5 “BLKB. <3*#512> : 3 PAGES 
000000 6 $ SIP_A_INDEXFHOR = SIP_A_ERLBUFFER : INDEX FILE HEADER BUF (FILSOPENFILE) 
0000 6 SIPTA-FILEHDR = SIPTATERLBUFFER+512 ; FILE HEADER BUFFER (FILSOPENF ILE) 
6 $ IMPURE _DATA 
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SYSINIT = SYSTEM INI 02: 40 +08 VAX/Y MS Macr | 
v04-000 DECLARATIONS =SEP=1984 04:04:48 CSYSINI.SRCJSYSINIT.MAR; 1 (2) | 
91 MSGFILFAB: $FAB FACSGET,= : FILE ACCESS IS GET (READ) 
9 FOP=<UFO>, : USER FILE OPEN 
9 FNA=MSGF ILNAM, = t ADDRESS OF FILE NAME STRING 
94 FNS=MSGFILNAMSZ,= . 
6 95 RFM=FIX,< : FIXED RECORD FORMA 
36 NRS=5 ge7 : MAXIMUM RECORD SIZE OF ONE PAGE 
9 RTV=255,- : LET ACP COMPUTE LARGEST RETRIEVAL WINDOW 
38 XAB=MSGFILXA + EXTENDED ATTRIBUTE BLOCK 
30 399 MSGF ILXAB: SXABFHC : EXTENDED ATTRIBUTE BLOCK FOR FILE HEADER 
bore 401 XOQPFAB: SFAB  —«FAC=GET,,~ : FILE ACCESS IS GET (READ) 
gore 4 : FOP=<UFO>,= : USER FILE OPEN 
ae PR ASXOPNAA, = + ADDRESS OF FILE NAME STRING 
o07¢ 404 crane : 
007C 405 RFM : FIXED RECORD FORMAT 
o7¢ 406 Ress 51g. + MAXIMUM RECORD SIZE OF ONE PAGE 
orc 407 RTV=25 : LET ACP COMPUTE LARGEST RETRIEVAL WINDOW 
OOCC 409 SIP_A_FIB: : FILE IDENTIFICATION BLOCK 
00000000 O0CC 410 .LONG 0 t ACCESS CONTROL INFORMATION 
0000 0000 0000 0000 411 “WORD 0,0,0 + RETURNED FILE ID 
0000 0004 0004 0006 41g “WORD FID$C_MFD,FIDSC_MFD,0 : DIRECTORY ID OF MFD 
00000010 donc 413 cos rreepgeat IB SIZEs.-S1P_A_FIB 
000000E0 Boe 419 NV ; CHANNEL FOR TERMINAL HERE 
scene GOED ‘1? S1P_0_RETADR: ; RETURN ADDRESS RANGE FROM EXPREG 
Mita: 419 SIP_Q_TMPDESC: : TEMPORY STRING DESCRIPTOR 
oonoore BFE sanse-snifhte | 
000000F8 O0OFO 4 ¢ .BLKQ 1 ; STATISTICS BLOCK RETURNED BY FILSOPENFILE | 
aia OOF 4 3 SIP_Q -RTRVBUF : : DESCRIPTOR FOR RTRV PTR BUFFER 
ad 0100 4 5 SIP_L -RTRVLEN: , ; RETURNED RTRV PTR BUFFER LENGTH 
1046 4 5 SIP_A_OPENARG: : ARGUMENT gist Al: if ULSOPENF ILE 
90000007 104 4 8 .LONG 7 : 7 ARGUME OPENF 
0000134" 0108 4 “LONG SIP_L_DSKCHAN + ADDRESS " “RETURN DI DISK CHANNEL 
00000E8' 010C 430 “LONG SIPTQ-TMPDESC + ADDRESS OF FILE NAME DESCRIPTOR 
09 00000' 0110 431 “LONG SIPTATINDEXFHDR : BUFFER ADDRESS FOR INDEX FILE HEADER 
9000200" 114 & ; “LONG SIPTAFILEHDR + BUFFER ADDRESS FOR FILE HEADER 
6000: 118 4 “LONG SIP™Q"STATBLK t ADDRESS TO RETURN STATISTICS BLOCK 
11C 434 : STARTING LBN IF CONTIG, 0 IF NOT 
00000100° Hie t 3 LONG SIP_ L _RTRVLEN : ADR. TD RETORNRTRY PTR BUF LENGTH 
Bo9p00F 8" 6 4 [LONG SIP7Q"RTRVBUF : ADR OF RTRV PTR BUF DESCRIPTOR 
124 439 SIP_L_ERRSEQ: 
4 fs oe : SAVED ERROR SEQUENCE NUMBER 
ese H rk ait : FROM DUMP FILE HEADER 
1 44g SIP_A_FILATT: : LIST OF FILE ATTRIBUTE AREAS 
ooooorzc 9198 cag ARTE eed ee 
12C 445 SIP_L_SWPATT: ; SWAP FILE 
00000130 01 ¢ 44g .BLKL 1 
1 447 SIP_L_RMSATT: : RMS 


o 
m 
oO 
= 
rw 
ma 
>m 
+z 
ea 
ou 


00000000 00000000 
00000000 00000000 
00000448 


00000134 01 9 
1 
134 
00000138 } “ 
133 
so Bs 1 
00000140" 01 
14 
14 
000001C4 014 
1¢4 
00000084 014 
164 
164 
27" 01C4 
5 74 61 65 83 1¢5 
2 72 65 20 73 7 He. 
10D 
QO0001EC Be 
1EC 
QIEC 
O1EC 
00000000 O1EC 
00000001" O1FO 
O1F4 
Q1F4 
3 Q1F4 
QOO000A OIFE 
O1FE 
Q000000A Ba05 
000001F4" be 
000 wt 910 * 020 
3 sponeafuogogy” 3 
8 45 3 ? 
3 0000022C'010E0000' 6 
23 2E 3A 4D 45 54 : 
3 4 
4 
8 B 
B 
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TIALIZATION PROCESS 


~BLKL 


SIP_L_DSKCHAN: 
.BLKL 


SIP_Q_LINBUF : 
. WORD 


SIP_T_LINBUF : 
.BLKB 


cz 
~“@m 


$SEP=1986 Os: 


UFSIZ 


SIP_C_LINBUFS1Z=.-SIP_T_LINBUF 


CREPRCERR: 
BYT 


ASCII 


CREPRCNAM: 
CREERREND: 


S$1P_Q_SPINPUT: 
LONG 


LONG 
XQP_GSDNAM: 


-ASCII 
XQP_GSDNA 


XQP_GSD_ best: 


CREERREND-.=-1 
\create process error 


0 
EXESGT_STARTUP+1 


Aye -000/ 


-~XQP_GSDNAM 


Xap P_GSDNAN $12 


L 
- ADDRESS XOP_GSDNAR 


a4 
oO 
v 
2 
> 
2 


XQP_DEF : 


“ASCID /SYSSSYSTEM:F11BXQP.EXE/ 


sASCID /SYSSSYSTEM: .EXE/ 


XQP_ somget 
xQpP _RETADDR' 
xQpP _HeAvéh: 


ONG 0,0 
LONG 0,0 
LKB 512 


eo 


; CHANNEL FOR DISK HERE 


; DESCRIPTOR FOR LINE BUFFER 


; CREATE PROCESS ERROR 
semana OF STRING 


STARTUP ones INPUT 


ESS 
COUNT FOR STRING 
ADDRESS 


MAR; 1 


0000005C 
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SOOoOoooooCoOO 


$$$ 


ENQW Request SrSEP=1986 Oe:ou:es ESYSYNL.sReaSvSinivoman:1 29° 


9 id » SUBTITLE Data Used by SENQW Request 
3 : The following data area is used by the SENQW request that obtains a lock 
+ ; whose name contains the system ID 
95 ° 
38 LOCK_FLAGS = = ; Flags used by SENQW call 
9 LCKSM_SYSTEM ! = ; Do not qualify lock name with UIC 
a LCKSM_NOQUEUE ! = ; There should be nothing to wait for 
9 LCKSM_CVTSYS ! = ; The lock will be owned by the system 
9 LCKSM_SYNCSTS 

§ 3; Lock status block. The lock ID will be stored in an exec data cell after 

Z 3; the service successfully completes. 


LOCK_STATUS_BLOCK: 

LOCK STATUS: -BLKW 3 

LOCK_ID: LONG 

; The lock name begins with the facility name in ASCII. The guts of the lock 


3; name cone tats of the agin f2: system ID. The ‘‘ID'’ suffix is a cute way of 
3; rounding the name up to multiple of four. 


LOCK_NAME : ASCII /SYS$SYS_1D/ 
LOCR_NAME_SIZE =. = LOCK_NAME 
L 


OCK_NAME_DESC: 
.CON LOCK_NAME_SIZE 
“ADDRESS LOCK "NAME 


wee ee eee eee eee eww eee oe oe oe oF oF oe ot oe ot 


Ot td et od dt I OOOOO 


CONOUSWN-OOONOUM 
“ 


aa 


—— ee 


G 16 
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v04-000 Data Used To Create Stand-Alone Configur 5-SEP-1984 04:04:4 SYSINI.SRCISYSINIT.MAR;1 (4) | 


cbs . SUBTITLE Data Used To Create Stand-Alone Configure Process 
4 3 
rh} 2 ; The following data is used in creating the stand-alone Configure Process 
468 ; 
rhe} ; Image name 
4E 4F 43 41 54 53 99000473" 2105 0000" 138 § STAC_IMAGE: eASCID /STACONFIG.EXE/ 
45 45 2E 47 49 46 r 0 
r H 1 ; Input/output/error names 
3A 30 41 50 4F SF 00000488'010E0000' 4 0 STAC_OPER: .ASCID /_OPAO:/ 
r ; 5 ; Process privilege mask 
FFFFFFFF FRFFFFFF rh} ; STAC_PRV_MSK: ~ LONG -1,-1 
ace ip : Process name 
GE 4F 43 41 54 53 0000049E'010E0000' 0496 541 STAC_PRC: eASCID /STACONFIG/ 
47 49 46 rey: i 
rn 548 ; Process quotas 
04A7 ate STAC_QLIST: 
01 goat 278 -BYTE PQLS_ASTLM 
000000C8 04A8 4 . LONG 
02 O4ac 548 BYTE PQL$_BIOLM 
000000C8 04AD 49 . LONG 
0 bees 550 -BYTE PQL3_BYTLM 
padoa 1B 3) brie POL$_CPULM 
00000089 Oe? 36 . LONG = 
488 554 -BYTE PQL$_DIOLM 
seeued rh 33 BYTE POL$_ENQLM 
000000C8 04¢1 3§ LONG ‘ 
4C5 38 “BYTE POLS_FILLM 
000000¢ 4C6 5 . LONG 0 
00005000 rh $4 “PONG ponao TT CUOTA 
08 O4CF 6¢ “BYTE BOL $_PRCLM 
000000¢ 400 6 . LONG 0 
0 404 64 BYTE beh S-TGELA 
000000C8 0405 65 . LONG 0 
Os 409 96 BYTE TARO WSDEF AULT 
000000 4DA 6 . LONG 0 
oh 4DE o8 -BYTE PQLS$_WSQUOTA 
00000200 O4DF § . LONG 1 
4E3 0 “BYTE PQL$_JTQUOTA 
00000406 4E4 7 . LONG 024 
aes 2 .BYTE PQL$_LISTEND 
4E9 74 SIP_CLU_TIMOUT: : 100 milli-second quadword value 
FFFFFFFF FFFOBDCO O4E9 75 = *,LONG -1000*1000,-1 


SYSINIT = SYSTEM INITIALIZATION PROCESS 16-SEP-1984 02:10:0 AX/VM 0 v04-00 
v04-0 Data Used For Quorum disk gre obe yaey 03 YOYSINE -S 4SYSINIT. MAR; 1 
4F1 «SUBTITLE Data Used For Quorum disk 
SIP_QD_CHAN: 3 Quorum disk channel number 
00000000 LONG 0 ah 
SIP_QD_10$ ; 1/0 status block 
SIP_QD_STATBUF ; Statistics buffer 
00000000 00000000 .Q 


52 4F 55 51 ; 


-—-o 


00000575 


PUPV PUP PVPUPU SUSU ITT BB EEE 


BNI NII NIP = DOO QOD 7870 $79 99 $79 FF 7 FF FF “FF 
9 OMI 2 @ OOF SO OOVNUIUIUN O70 00 WN 


SOQOQOQooooooooooOooooooooooo: 


ODOOGOSOOSSOSOS OWOOOOOOOOOWMO dd cdcaDODCO IN 
CONOUEWN "OG OCONOUSWN—OODNOULSWH—OUOOn 


SPOAOOOOSOAOO wmv 


SIP AO PERS 


SIP_QF _DESCR: 
~ WOR 


D.6«(«OO 
“BYTE DSCSK_DTYPE_T 
YTE DSCSK~CLASS~S 
LONG SIP_QF_BUFFER 


SIP_QF_NAME: 
ASCII /£000000JQUORUM. DAT; 1/ 


SIP_QF_NAME_SIZE = .-SIP_QF_NAME 


SIP_QF_BUFFER: 
.BLKB 64+SIP_QF_NAME_SIZE 


S1P_QD_ITMLST: 
. WORD 


0 64,DVI$_FULLDEVNAM 
[LONG SIP_QF_BUFFER 
[LONG SIPTQFDESCR 
“LONG 60 


; Quorum disk name descriptor 


3; Full quorum file name descriptor 


SYSINIT = sv 
v04-000 IMPU 


m 
oz 
Pd 


OwWWOrrrr rrr PP OOOOOOMMOCDCDCD 


SWUNG ON 9 OU 2 THOS OU 9 OUI 9 OO OU 2 SS TOO OU | OUI 9 OU 


00000000° 
Q000005AD' 
00000000 


00000000 


ean 

ee 

00000000 b000 0 
: 


o> 


ATI 
REL 


ou 


NOUN OOO NIA UE WIN  O OD NAME WIN O OD NOA UE WW 0 OONA UE UR SOWOONOULS UN — os aD 


L 
sth M AND STRNLNM CALL 5-SEP= SYSINI Sys INIT.MAR; 1 
~SBTTL IMPURE DATA FOR $CRELNM AND STRNLNM CALLS 
SYS_ COMMON pimsyt 
-WORD 4, LNMS_ATTRIBUTES 
- LONG ERMINAL -CONCEALED_ATTR ;SYSSCOMMON BOTH TERMINAL AND CONCEALED 
SYS —— grins). LEN: 


“WOR Dd Lire. STRING 
SYS ~SYSROOT CHNSYS: 


on PROCESS Terseb= 1386 be: 40: 0 eat a Race v04-00 Page ! 


SYS_SYSDEVICE_ITMLST: 
-WORD™ 4,LNMS_ATTRIBUT Fs 
“LONG 1S ~SYSDEVICE_ATT 
SYS age! -DEV_LEN: 
ORD LNMS_ STRING 


SYS _svSDEVICE DEV: 
-LONG™ SIP_ A_ERLBUFFER 
“LONG SYS ~SYSDEVICE_DEV_LEN 
-LONG 0 


SYS_SYSDEVICE_ATIR: 
LONG” 0 


SYS ree FOV. LST: 


“WORD ByiS FULL Dean 
LONG SYS. ~SYSDEVICE _DEV_LEN 


SYS_SYSROOT ITHLST: 
. WORD LNM$_ATTRIBUTES 
-LONG TERMINAL CONCEALED_ATTR ;TOPSYS BOTH TERMINAL AND CONCEALED 
SYS_ SYSROOT TOPSYS_LEN: 
“WORD _LNMS_STRING 
SYS ~$YSR001 TOPSYS: 


. 4 LNMS. ATTRIBUTES 
“LONG NO_ATT sCMNSYS NEITHER TERMINAL NOR CONCEALED 


; .” 

“WORD SYS_COMMON_LENGTH 
“WORD LNAS STRING 

“LONG  S$YS_COMMON 

“QUAD 


sy YS_TOPSYS_ITMLST: 
~TOPSYS~ BRA. LEN: 


“WORD LNMS_STRING 


DPD PAPA AAA AAA AAAAAA AA AAA AA AAA AAAS A AAAS AAAAS SASSO ASAOOSASAS m4 
per 
oo 


DDQRDPDP ALA DPLD Paar Pr Be Be BB EE NAAN IAIN GIPIPIPOPOPONININININY 2 2 SO 
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NM AND STRNLWM CALL 'S-SEP=1966 Qasdased ESYSINE .SRESSYSINIT MaR,1 "28° {@, 
T 


SYSINIT = SYS TIA 

voe-000 IMPUR FOR 

ess SYS_TOPSYS DIRNAM: 
0 


LO G 
» QUAD 


SYSINIT 


v04-000 


5D 2E 4E 


49 46 24 


59 53 24 


3A 4E 


4F 43 24 


3A 54 4F 


45 4D 24 


3A 54 4F 


48 53 24 


59 53 24 


49 44 24 


59 53 24 


3A 54 4F 


4F 


4D 


40 


4F 


53 


4F 


53 


4F 


53 


53 


53 


53 


4F 


4D 


59 


59 


59 


59 


59 


vw 
on 


4C te 


4D 4F 43 24 53 59 53 


00000008 
53 setae E°01 OF 0000° 
E 4F 4D 4D 
53 59 53 $3 53 59 53 
47 53 4D 53 59 53 58 
00000014 


53 00000374'010E0000" 
45 47 41 5 38 

53 59 53 $3 53 
42 49 4C 53 59 
00 

53 tated | wi 
45 ah 

53 000003AC'010E0000' 
a5 23749 56 45 ae 58 
53 000003C1'010€ £0009" 

4B 


$5 ogee 2 HY 


— 
ap 4 
Daa 


own ONS 


o00000 
Oooo NOUS UT 


H POOSOSSAS SOA SOAS COCO 


Oo wOccDcecDcDeD 
— SOOCONOULS Wr 


8 
SYS_ SHARE : 
00 
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~SBTTL PURE DATA FOR SCRELNM AND $TRNLNM CALLS 
PURE _SECT 

CMNSYS: 
eASCIC /SYSCOMMON.3/ 


LNM_FILE_DEV: 
TASCID = /LNMSFILE_DEV/ 


LNM_SYSTEM DESC: 
-ASCID /LNMSSYSTEM/ 


SYS_COMMON: 
ASCII /sv SSCOMMON : / 
Svs. COMMON LENGTH = . = SYS_COMMON 


SYS_COMMON DESC: 


-ASCID /SYS$COMMON/ 


SYS_MESSAGE: 
»ASCII = /SYS$SYSROOT: CSYSMSGI/ 
SYS_MESSAGE_LEN = . = SYS_MESSAGE 


SYS_MESSAGE DESC: 
-ASTID /SYSSMESSAGE/ 


ASCII 
SYS_SHARE_LEN = 


SYS_SHARE_DESC: 
-ASCID /SYSS$SHARE/ 


/SYS$SYSROOT : CSYSLIBI/ 
- SYS_SHARE 


SYS_SYSDEVICE DESC: 
-ASCID = /SYSS$SYSDEVICE/ 
SYS_DISK_DESC: 

TASCID /SYSS$DISK/ 


SYS_SYSROOT DESC: 
-ASTID /SYSS$SYSROOT/ 


SYS_SYSTEM: 


eASCIIL = /SYS$SYSROOT: CSYSEXEI/ 


ATION PROCESS 
LNM AND STRNLNM CALLS 


YS_SYSTEM_LEN = . = SYS_SYSTEM 


YS_SYSTEM_ DESC: 
-ASCID /SYSSSYSTEM/ 


54 4C 41 46 41 55 


46 41 55 53 59 53 00000425'010E0000' sASCID = /SYSUAF/ 


TERMINAL _CONCEALED_ATTR: 
LNMSM_TERMINAL ! LNMS$M_CONCEALED 


SYS_MESSAGE_ITMLST: 
AGE_LEN,LNMS_STRING 
SSAGE 


SYS_SHARE_ITMLST: 
GoRD RE_LEN, LNMS, STRING 


SYS_SYSTEM_ITMLS 
WORD _LEN,LNM$_STRING 


09000000 0000000 


SYSUAF_ITMLST: 
. WORD UAF ALT_LEN, LNM$_STRING 
SUAF ALT 


0 
00000000 00000000 
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04-000 SYSTEM INITIALIZATION PROCESS Breer aae Beeiee PNCYNF Bacce yor 00, Page 12. 
047 17 
47 18 SIP_START: 
0000 047 1 .WORD 0 : ENTRY MASK 
479 0 SCMKRNL_S - 
479 1 W°SIP_GET_SYSID_LOCK | ; OBTAIN LOCK FOR SYSTEM ID NAME 
is SCMKRNL_S W*SIP_SETTIME ; SET THE INTERNAL SYSTEM TIME 
49 5 SCMKRNL_S - 
493 8 é W*SIP_CLUSTER_INIT : CLUSTER RELATED INITIALIZATION 
0000'CF 00 FB 4A0 He CALLS #0,W*LOCKDOWN ; LOCK PAGES THAT MUST BE LOCKED 
0445 830; 
0445 831 : CREATE THE SYSTEM LOGICAL NAMES. AN ASSUMPTION MADE IS THAT AN INDEX 0 
04A5 B3¢ ; TRANSLATION EXISTS FOR SYSS$SYSDEVICE IF THE LOGICAL NAME IS SUCCESSFULLY 
0445 833 ; TRANSLATED. 
04A5 See 3 
0445 33 
0445 836 STRNLNM_S - GET TRANSLATION ATTR OF THE SYSTEM DISK 
04A5 837 TMLST = SYS_SYSDEVICE_ITMLST,- 
0445 838 LOGNAM = SYS"SYSDEVICE-DESC,- 
0445 839 TABNAM = LNMTFILE_DEV 
7E 50 £9 O4BE 840 BLBC ~— RO, 5$ : QUIT ON FAILURE 
FFFFFCFF 8F CA 04C1 BAe BICL2 #*C<LNMSM_TERMINA LLNMSH. CONCEALED>, 
HOO00SED' EF O4c7 B43 SYS_SYSDEVICE_AT TR CLEAR UN-NEEDED ATTRIBUTES 
04CC 845 $GETDVIW_S - ; GET FULL DEVICENAME OF THE SYSTEM DISK 
04CC 846 EFN = #1,- ; 
04CC B47 10SB = W4SIP_@ STATBLK,- 
O4CC 848 ITMLST = SYSTSYSDEVICE.DVI_LST,- 
04CC¢ 849 DEVNAM = SYSTSYSDEVICE-DESC 
5250 €9 O4EA 50 BLBC ~— RO, 5$ ; QUIT ON FAILURE 
000005B1'FF SF 8F 91 O4ED B3¢ CMPB ss #A\_\ ,@SYS_SYSDEVICE_DEV 
OC 12 O4F5 85 BNEQ 2% 
000005B1'EF D6 O4F7 354 INCL  SYS_SYSDEVICE_DEV ; DISCARD LEADING "'_"' 
QOOOOSAD'EF B87 O4FD 835 DECW  SYS~SYSDEVICE~DEV_LEN 
0503 857 2$: SCRELNM_S - SET UPTODATE TRANSLATION OF THE SYSTEM DIS 
503-858 ITMLST = SYS_SYSDEVICE_ITMLST,- 
50 59 LOGNAM = SYS"SYSDEVICEDESC,- 
30 60 ACMODE = EXEC_MODE,- ~ ; 
5 61 TABNAM = LNM_SYSTEM_DESC 
1€E 50 £9 al B6¢ BLBC ~—_ RO, 5$ : QUIT ON FAILURE 
0521 864 SCRELNM_S - : SET UPTODATE TRANSLATION OF THE SYSTEM DIS 
521 65 “ITMLST = SYS_SYSDEVICE_ITMLST,- 
521 66 LOGNAM = SYS"DISK DESC+- 
521-86 ACMODE = EXEC_MODE,- _ ; 
3 1 68 TABNAM = LNM_SYSTEM_DESC 
03 50 &8 53¢ ° BLBS RO, 108 : CONTINUE IF TRANSLATION EXISTS 
00FO 3-31 Hf i 5$: BRW CRELNM_FATAL : ELSE GENERATE ERROR 
4 75 ; 
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v04=000 SYSTEM INT TEAL PATTON PROCESS ~SEP=1984 84 04: 03 YOYSINT. eRe SSYSINIT. MAR; 1 ° ah 
4 2 : CREATE LOGICAL NAMES FOR SYSSCOMMON AND SYS$SYSROOT. 
4 76° 
56 OOO00SAD'EF 3¢ 054 ig 10$:  MOVZWL $1 _SYSDEV E DEV _LEN,R6; SIZE OF DEVICE NAME TRANSLATION 
57 90000581 "Et dO 054 £8 MOVL SS S0EVI “DEVTR : ADDRESS OF DEVICE NAME TRANSLATION 
53. 57) 56S 50 «B7 ADDL3 RO R7,R + ADDRESS OF FIRST BYTE BEYOND DEVICE 
334 0 + NAME TRANSLATION 
51 00009000" EF DE 935 é 20$ MOVAL FIL$GT_TOPSYS,R1 : TOP LEVEL SYSTEM DIRECTORY IF ANY 
0 81 WY, MOVZBL (R1)+,RO : GET SIZE OF STRING 
OD 13 O55€ 884 BEQL  30$ : BRANCH IF NO TOP LEVEL DIRECTORY 
83 5B oF 30 560 8 5 MOVB. #*A/C/,(R3)+ : BEGIN DIRECTORY STRING 
63 61. «50 564 é MOVC3 RO, (R15, (R3) : MOVE THE TOP LEVEL DIRECTORY NAME 
83 5D2E BF 80 0568 887 MOV)  #*A/.3/.(R3)+ + AND THE SEPARATOR 
56 53 57 C3 056D 889 30$ SUBL3 -R7,R3,R6 ; GET SIZE OF THE pEQULVALENCE NAME 
00000S5DD'EF 56 BO 0571 890 MOVW R6,SY$_SYSROOT_TOPSYS_LEN; STORE THE LENGTH IN THE ITEM LIST 
QOOO0SE1"EF 57 DO 0578 891 MOVL — R7,SYS"SYSROOT-TOPSYS~ ; STORE THE ADDR ess IN THE ITEM tit 
057F 36 SCRELNM_S = t CREATE SYS$SYSROOT LOGICAL NAME 
057F 689 ACMODE = EXEC —— 
O57F 894 ITMLST = SYS_ S¥SROOT _ITMLST,= 
O57F 895 LOGNAM = SYS"SYSROOT-DESC,- 
OS7F 896 ABNAM = LNM_SYSTEM_BESC 
A250 €9 059A 897 BLBC ~— RO, 5$ : GENERATE ERROR MESSAGE ON FAILURES 
53 57 56 C1 059D 899 ADDL3 = R6, R7, RB : ADDRESS OF FIRST BYTE BEYOND 
O5Al 900 : SYS$SYSROOT CONSTRUCTED {fQvIVALENCE 
51 FD64 CF DE O5A1 901 MOVAL  CMNSYS,R1 + COMMON SYSTEM ROOT IF 
50 81 9A O05A6 90¢ MOVZBL (R1)+,RO : GET SIZE OF STRING 
FF AS 61 50 28 O5A9 90 MOVC3 RO, cat) -1(R3) ; COPY THE COMMON SYSiEM ROOT NAME 
56 53)0—CO57)C3(OSAE = 90 SUBL3 R7.R3,R6 GET SIZE OF EQUIVALENCE NAME 
00000591°EF 56 BO 0582 905 MOVW = RG. eye SYSROOT_CMNSYS ALEN; SET EQUIVALENCE NAME SIZE IN ITEM LIST 
00000595"EF 57 DO 0589 906 MOVL _ R7,SYSSYSROOT-CMNSYS~ ; SET EQUIVALENCE NAME ADDR IN ITEM LIST 
05¢0 907 SCRELNM_S - : CREATE SYS$COMMON LOGICAL NAME 
5¢O )3—-908 “ACMODE = EXEC_MODE,- 
05¢0 909 ITMLST = SYS_COMMON_ITMLST,- 
5¢O =: 910 LOGNAM = SYS" COMMON “DESC, = 
sco. 911 = LNM"SYSTEM =DESC 
54 50 €9 0508 gig BLBC RO” CRELNM’ FATAL ; GENERATE ERROR MESSAGE ON FAILURES 
OSDE 914; 
O5DE 313 : CREATE LOGICAL NAMES FOR SYSSMESSAGE, SYSSSHARE, AND SYSSSYSTEM. 
DE 917° 
Sane 918 SCRELNM_S = : CREATE SYSSMESSAGE LOGICAL NAME 
SDE 919 ACMODE = EXEC_MODE, - 
SDE 920 ITMLST = SYS_MESSAGE_ITMLST,- 
SDE 921 LOGNAM = SYS"MESSAGE-DESC,- 
SDE 9 é TABNAM = LNMOSYSTEM DESC . 
38 50 «—E9 ar? 3 ; BLBC —- RO, CRELNM_FATAL : GENERATE ERROR MESSAGE ON FAILURES 
SFA 925 SCRELNM_S - ; CREATE SYS$SHARE LOGICAL NAME 
SFA 9 6 “ACMODE = EXEC_MODE, - 
SEA 3 ITMLST = SYS_SHARE_ITMLST,- 
FA 8 LOGNAM = SYS"SHARE-DESC,- 
SFA 929 TABNAM = LNM“SYSTER_DESC 
1¢ 50 €9 0633 930 BLBC RO, CRELNM_FATAL : GENERATE ERROR MESSAGE ON FAILURES 
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= EXEC_MODE, - 

= SYS _SYSTEM_ITMLST,=- 

= SYS"SYSTEM-DESC,- 

= LNM”SYSTEM-DESC 

LNM_DONE : GENERATE ERROR MESSAGE ON FAILURES 


: FAILED TO CREATE THE SYSTEM LOGICAL NAMES. 


CRELNM_FATAL: 
MOVAL 
BSBW 


SIP EATALS R1 ; ERROR MESSAGE TEXT 


; REPORT ERROR AND QUIT 


; SUCCESSFULLY CREATED THE SYSTEM LOGICAL NAMES. 


CRELNM_DONE: 


BBC 


SCRELNM 


BO e Ge Ge Ge Ge 


30$: MOVL 


B 
32$: MOVZBL 
MOVQ 


BGEQ 


THE FILE SYSTEM AND RMS ARF, NOT YET AVAILABLE 
FILSOPENFILE CODE TO ‘'OPE 
THE FILE SYSTEM CAN BE INITIALIZED. 


OS: CLRQ 


tt et? eee CREATED LOGICAL NAMES 


n fexEBv. SYSUAFALT, EXESGL Fuss, 10$ ; BR IF NORMAL NAME FOR SY SUAF 


ATE siSUAF TO ALTERNATE NAM 
= W*SYSUAF -JTMLST, ° 

= W*SYSUAF “DESC 

= WLNM_ SYSTER. besc 


USE THE BOOTSTRAP 
THE FILES THAT MUST BE PRESENT BEFORE 


: R6 = SIZE OF ATTRIBUTE REGION 
+ R7 = ADDRESS OF ATTRIBUTE REGION 
w*SIP A. FILATT,R8 : ARRAY OF FILE ATTRIBUTE POINTERS 
NAMES ,R9 Y OF FILE NAME POINTERS 
ESv NPAGEILDMP, EXEsGL FLAGS O$ ; BRANCH IF DUMP 
SIS NOt IN PAGE FILE 
(RB) +, (RO) + : SYSBOOT “‘OPENED'’ PAGEFILE.SYS 
: DON'T BOTHER DOING IT AGAIN 
(R9)+,R1 : ADR OF ASCIC FILE NAME STRING 
32$ + PROCESS IT 
: BRANCH IF THIS IS THE END 
; SIZE_IN RO, ADR IN RI 
RG Veh Q TMPDESC ; STORE FILE NAME DESCRIPTOR 
R6 #RIRVPTRS+8 ; ENOUGH ROOM IN RTRV BUFFER 
; FOR FILE ATTRIBUTES AND AT LEAST 
; ONE RETRIEVAL POINTER? 
t BRANCH IF YES 


; NEED TO ALLOCATE (MORE) SPACE FOR FILE ATTRIBUTES 


$4: ADDL3 


SEXPREG_S - 
“REGION=#0 - ; GET THE NEXT PAGE IN PO SPACE 


#1,W*SIP_Q_RETADR+4,R2 ; FIRST ADDRESS OF NEXT PAGE TO 


; BE EXPANDED INTO. 
; RTRV PTR BUFFER ALLOCATED YET. 


SYSINIT = SYSTEM INITIALIZATION PROCESS 16-SEP-1984 02:10:02 VAX/VMS Macro V04-00 Page 2 SY 
v04-000 SYSTEM INITIAL] ZATION PROCESS gS 1 Oke 8 42:98 YOYSINT -SREISYSINIT OMAR: 1 . 48) vo 
GBF 2 PAGCNT=#1 = : 1 PAGE 
6 F RETADR=W°S1P_Q_RETADR : RETURN ADDRESS RANGE 
56 0200 C6 DE O06A 0 MOVAL 512(R6),R6 : FILE ATTRIBUTES BUFFER IS NOW 
6A 91 + 1 PAGE BIGGER (ASSUMING IT WAS 
6A 996 + ALLOCATED ADJACENT TO THE CURRENT BUF) 
52. OOEO'CF 01 eA 994 CMPL yr $1P_Q_RETADR,R2 ; DID WE ALLOCATE THE ADJACENT PAGE? 
OA 13 O6AA 995 BEQL 5 + BRANCH IF YES 
57 OOEO* CE 20 6AC 936 MOV W*SIP_Q_RETADR,R7 : SET NEW STARTING ADDRESS 
56 ©0200 SF g 681 99 MOVZWL UR : AND SIZE FOR FILE ATTRIBUTES BUFFER 
OOF8'CF 56 14 C3 06B6 998 36$:  SUBL3  #RTRVPTRS,R6,W*SIP_Q_RTRVBUF ; SET UP SIZE AND ADDRESS 
OOFC'CR 57 14 = C4 6B 999 ADDL3  #RTRVPTRS.R7.W°SIP-Q-RTRVBUF+4 ; OF RTRV PTR BUFFER 
6C2 1 00 $DASSGN_S W*SIP_L.DSKCHAN : FILSOPENFILE ASSIGN CHANNEL EACH CALL 
6fE 1001 : LEAVE IT ASSIGNED AFTER LAST CALL 
QOOOO00O0'EF O104'CF FA 6c 1008 CALLG W*SIP_A_OPENARG,FILSOPEN ILE; GET RETRIEVAL POINTERS 
1D 50 £8 Oeb7 190% BLBS R0,40$ + BRANCH IF SUCCESSFUL 
0000'8F 50 681 O6DA 1005 CMPW ss RO, #SS$_NOSUCHF ILE 
08 13 O6DF 1006 BEQL 38% : IGNORE NO SUCH FILE 
51 FAF3 CF DE O06E1 1007 MOVAL W*FILOPNERR,R1 
0B1B 30 0666 1008 BSBW  SIP_SYSMSG ; DISPLAY ERROR 
67. 01 CE 0669 1009 38$:  MNEGL #1,FILELBN(R7) : SET IMPOSSIBLE STARTING LBN 
04 A? D4 O6EC 1010 CLRL. - FALESIZE(R7) > SET SIZE=0 
10 AZ D4 «(O6EF «(1011 LRL —saRTRVLEN(R7) : NO RETRIEVAL POINTERS 
50 14 DO O6F 1018 MOVL § #RTRVPTRS,RO : NO. OF BYTE USED FOR ATTRIBUTES 
2 Bh ite 
O6F7 1015 t SUCCESS RETURN FROM FILSOPENFILE 
67 OOFO'CF 7D O6F7 1017 40$:  MOVQ  W*SIP_Q_STATBLK,STATBLK(R7) ; STORE STATISTICS BLOCK 
10 A? O100'CF =O sOBFC 1018 MOVL. W*SIP"L”RTRVLEN,RTRVLEN(R7) : AND RTRV PTR BYTE COUNT 
50 10A7 14 (C1 070¢ 1019 ADDL3 #RTRVPTRS,RTRVLEN(R7),RO ; FORM BYTE COUNT USED IF ALL 
0707 1020 ; ETRIEVAL POINTERS FIT IN 
0707 1021 + THE SPECIFIED BUFFER SPACE. 
56 50 01 0707 19 é CMPL _—RO, R6 ; ERE ENOUGH SPACE? 
03 15 O70A 102 BLEQ = 44$ ; BRANCH IF NOT, GET MORE SPACE 
FF7A 31 o70F 1998 BRW 34$ : AND TRY THE FILSOPENFILE AGAIN 
8 15 § RO = THE NUMBER OF BYTE USED FOR THE FILE ATTRIBUTES FOR THIS FILE 
08 A? 01 DO O70F 1028 44$:  MOVL #1, IMAGEVBN(R7) - INIT IMAGE ATTRIBUTES 
OC A? 04 A7 DO 0713 1029 MOVL  FILESIZE(R7),IMAGESIZE(R?) ; AS IF NOT AN IMAGE FILE 
88 57 DO 0718 1030 MOVL  R7,(RB)+ : STORE THE POINTER TO THE 
71B 1031 : ATTRIBUTES FOR THIS FILE 
57 50 C9 71B 1 ; ADDL _—RO,R7 : UPDATE BUFFER ADDRESS 
56 30 ¢ 7iE 1 SUBL R : AND SIZE 
FF5 1 u i 4 BRW 30$ : GO PROCESS THE NEXT FILE 
57 0130'CE 20 724 1 6 50$:  MOVL W*SIP_L_RMSATT.R7 ; RMS FILE ATTRIBUTES 
50 0134"CF «= 3C—s(0729 «1 MOVZWL W*SIP"L~DSKCHAN,RO : CHANNEL TO READ FROM 
51 18 A? DO O72 1 : VL RTRYPTRS+4(R7) Ri : LBN OF FIRST BLOCK OF FILE 
53 21 DO 0732 1 MOVL #10 READLBLK. > FUNCTION C 
52° OC A7 p 735 (1 40 MOVL IMAGESIZE(R?).R : ACTUAL LAST VBN IN FILE 
060D 739° 104 BSB S1P MAGE_ATT : GET IMAGE ATTRIBUTES 
0A 50 «£9 O73c 1 46 BLBC_ RO, S2$ : BRANCH IF ERROR 
08 A? 51 1 C1 O73F 104 ADDL3 #1.R1, IMAGEVBN(R7) : SAVE STARTING VBN OF IMAGE 
Ca? 52 51 €3 0744 1044 SUBL3 °1,R2, IMAGESIZE (R?) : SAVE BLOCKS OF IMAGE TO MAP 
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SYSINIT - SYSTEM INITIALIZATION ESS 16=SEP=1984 02:10:02 VAX/VMS Macro V04-00 Page 24 
04-000 SYSTEM INITIALIZATION PROCESS ety P BF: 48:08 YOYSINT  SREISYSINIT MAR: 1 * th 
57 58 OD 15 11 : MOVL _—RB,R7 : AND ADDRESS 
00000605 'EF : B 18 1103 10$ MOVW  R6,SYS_TOPSYS_DIRNAM_LEN; SET SIZE OF EQUIVALENCE NAM E 
00000609" EF D 1F 1104 MOVL — R7,SYSTOPSYS-DIRNAM  ; SET ADDRESS OF EQUIVALENCE NAME 
é 1105 SCRELNM_S = : CREATE LOGICAL NAME FOR SYS SSTOPSYS 
11 : “ITMLST = W*SYS_TOPSYS_ITMLST,- 
08206 11 LOGNAM = W*SYS-TOPSYS-DESC,- 
6 1 8 TABNAM = W*LNM~SYSTEM~DESC 
D 1110; 
: p N12 : OPEN AND CREATE GLOBAL SECTIONS FOR THE XQP 
D 1113 ° 
cs D 1114 20$:  SOPEN FAB = W*XQPFAB ; OPEN IT 
44 50 €9 0848 1115 BLBC _—RO, 408 + ERROR OPENING FILE 
0848 1116 $GIOW_S CHAN = XQPFAB+FABSL_STV,- ; READ IMAGE HEADER 
0848 111 FUNC = #10$_READ DVBLR. = 
0848 1118 10SB = W*SIP_Q_STATBLK,- 
0848 1119 Pi = u-81P- A~ERLBUFFER,- 
Spee 113% a 
= 
18 50 £9 0874 11 : BLBC RO, 408 : ERROR READING FILE 
50 00F "CE 3 0877 1 ; MOV ZWL UA £Ip°0_STATBLK.RO 
O87F 1125 SCMKRNL_S westP _MAPXQP : GO MAP XQP IN KERNEL MODE 
08 50 £8 O88C 1126 BLBS “RO 0§ 
51 F982 CF SE O88F 1127 40$:  MOVAB ERR,R1 
096D 30 0894 1128 BSBW Sip. oe enga 
gr ne) 3 
: NOW OPEN AND MAP THE SY WIDE MESSAGE FILE (SY AGE : SYSMSG.EX 
0897 1 1 OPE THE SYSTEM WIDE MESSAGE FILE (SYSSMESSAGE:SYSMSG.EXE) 
897 11 z SOPEN FAB=W°MSGFILFAB OPEN THE FILE 
54 50 £9 BAe 1134 BLBC ANCH IF ERR 
50 O00c'CF 3¢ O8A5 1135 MOVZWL WMSGFILFAB+FABSL_STV, RO’; “CHANNEL TO READ F ROM 
51 o1 DO O8AA 1136 MOVL : READ VIRTUAL BLOCK 1 
53. 31—s«é OBAD 1137 MOVL #10$_READVB ; FUNCT 10N CODE 
52 00000060'EF DO 0880 1138 MOVL MSGRILEABY EADS” EBK, R2 : END OF FILE BLOCK NUMBER 
00000064 "EF 83 887 1139 ist WSF ILXAB+KABSU_F FB + UNLESS FIRST FREE BYTE = 0 
32 y? 8BF 1141 DECL Re : IN WHICH CASE IT IS ONE TOO BIG 
48 0 08C1 1148 72$:  BSBW  SIP_IMAGE_ATT : GET IMAGE ATTRIBUTES 
32.50 E9 O8C4 114 BLBC = RO, 74$ : BRANCH IF ERROR 
52. 51 ce O8C7 1144 SUBL  R1.R2 + NUMBER OF BLOCKS TO ACTUALLY MAP 
20 «1 cA 1143 BLEQ 74$ : BRANCH IF NOTHING TO MAP 
c¢ 1147 : MAP THE MESSAGE FILE AS A SYSTEM SECTION 
00000000'EF oF 0 CC 1149 PUSHAL EXESGL_SYSMSG ; LOCATION TO STORE SYSTEM 
D 1130 : ADDRESS AT WHICH SYSMSG IS MAPPED 
F DD O8D2 1151 PUSHL #PRTSC_UR : PROTECTION FOR PAGES 
2 DD 08D4 11 é PUSHL R : PAGE COUNT TO MAP 
7E 51 OF C1 08D6 11 ADDLS #1.R1,-(SP) : STARTING VBN TO MAP 
7E O000000C'EF 3C OBDA 1154 MOVZWL WSGFILFAB+FABSL_ STV.-(SPS ; CHANNEL ON WHICH SYSMSG IS OPEN 
5 DD OBE1 1138 PUSHL ARGUMENTS IN THE ARG LIST 
50 SE dO O8E3 13 5 MOVL  $P,RO + ADDR $$ OF ARGUMENT LIST 
bes 113 SCMKRNL_S U*EXESSYS. SECTION, (RO)* MAP THE SECTION 
SE 18 CO O8F3 1158 ADDL “#<6e4>, : CLEAN OFF ARGUMENT LIST 
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SYSINIT = SYSTEM INITIALIZATION PROCESS -SEP=1984 02:10: AX/VMS Macro V04-00 P 
v04-000 SIP_GET_SYSID_LOCK = Obtain Lock for Sys moet §e 40:28 SYSINI.SRCJSYSINIT.MAR;1 “to 8) 
4: 1134 ; « SUBTITLE SIP_GET_SYSID_LOCK = Obtain Lock for System ID 
93 1198 : Functional Description: 
99E 1199 : This routine obtains a system-owned lock whose name contains the 
99E 1138 3 system ID. If this syaten s to join a cluster, a test will be made 
99E 1199 ; or a unique system ID when this system's lock data base is merged 
99E 1200 ; into the cluster-wide data base. The lock is system wide because the 
99E 1201 ; various sublocks that will use this as a parent are locking system 
443 ; § ; wide data structures. 
99E 1204 : f SENQW returns an error, a Es will be ‘esued and the SYSINIT 
44: : 5 ; mage will go away, preventing further system initialization 
O99E 1 07 : Locking is enabled before this lock is requested and sub-locks are 
444 ! 3 : enabled after the lock is granted. 
O99 10 ; Calling Sequence: 
O99 le : CALLS #0, SIP_GET_SYSID_LOCK 
+433 } 1% : Environment: 
O99 16 : This routine must execute in kernel mode 
O99E 1218 ; Input Parameters: 
O99E 1219 ; 
0996 1991 pam 
O99E 1 ¢ : Output Parameters: 
O99E 1 : 
S33 1sgs one 
O99 $ : Implicit Output: 
O99E 1228 : If the lock request is successful, the lock ID is stored in the 
O99E 1229 ; exec cell called EXESGL_SYSID_LOCK for use as a parent ID by other 
3443 } ; lock requests. 
99E 1 § : If the lock request fails, the image exits (and initialization 
O99E 1 3 terminates) after an error message is typed. 
0996 1935 ° 
3443 1 § SIP_GET_SYSID_LOEK: 
0000 +43 i «WORD ; Save no registers 
$A0 ! 33 ; Enable locking 
O0000000'GF 994 Ny ! ] CLRB G*LCK$GB_STALLREQS 
ane i ‘8 ; Take out an exclusive lock with the system ID as the lock name 
0000045D°EF  QO0000000'GF oD 9A6 1245 MOVL G“*SCSS$GB_SYSTEMID, SYS_ID ; Move first four bytes of ID 
00000461'°EF O0000000'GF 8B 4 ' 48 MOVW G*SCS$GB"SYSTEMIDH, SYS_ID + 4 ; and the Last two bytes, too 
9BC 1 $8 SENQW_S EFN = #32,- 
9BC 124 LKMODE = #LCKSK_EXMODE,- 
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$4 
IALIZATION PROCESS 16-SEP-1984 02:10:0 AX/VMS Macro V04-00 Page 27 SY 
OCK = Obtain Lock for Sys oes 7 82: 40:98 LOYSIN]  SREISYSINIT MARS 1 ° (9) vo 
LKSB = LOCK. STATUS _BLOCK,-=- 
FLAGS = #LOUK_FLAGS,- 
RESNAM = LOCKNAME _DESC,- 
ACMODE = #PSLSC_EXEC 
BLBC RO, ERROR ; Abort image if an error occurs 


; Store the lock ID where other folks can find it and return success 
MOVL LOCK_ID, G*EXESGL_SYSID_LOCK ; Store the lock ID 
; Enable sub-locking, but not creation of additional roots 
MOVB #2,G*LCK$GB_STALLREQS 


MOVZWL 9 S“#SS$_NORMAL ,RO ; Indicate success 
RET ; and return 


ERROR: 
MOVAB SYSID_LOCK_ERR, R1 ; Store error message address 
BRW SIP_FATAL This is the death step 
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SYSINIT = SYSTEM INITIALIZATION PROCESS SEP=-1984 02: AX/VMS Macro V04-00 Page 
v0e 000 SIP_CLUSTER_INIT = Cluster related initi "er Seen 982 etre % SYSINI.SRCIJSYSINIT.MAR;1 ° (3) 

“ r ! , » SUBTITLE SIP_CLUSTER_INIT = Cluster related initialization 
A 4 74 ; Functional Description: 

~ 2 ! 7 ; This routine performs cluster related initializations. 

A0S 1 4 : f the node is not even going to participate in a cluster, locking 
. r : 8 : s enabled and the routine returns. 

A 4 1: If the node will participate in a cluster: 

AQS 1 : : 1. The etene~stene cont orice process is 4 created. The purpose of 
A0& 1284 ; this process is to gent igure communications drivers supporting 
AQ& 1285 ; SCS and the disk dr ver supporting the disk potentially 

pA : ! e? 3 containing the quorum file. 

BAR? } 8 : 2. A bit is set triggering cluster formation/joining. 

Saga 1 $5 ; 3. Wait for a cluster to be joined or formed. It is assumed that 
pane 1291 ; locking is enabled as a side effect of joining or forming the 
yt } 38 ; cluster. 

OA04 129% : 4. Time is updated to set a consistent, cluster-wide time. 
Ne 

DAs $7 : Calling Sequence: 

DAs $3 ; CALLS #0, SiP_CLUSTER_INIT 
ie } 4 : Environment: 
OA 4 § : This routine must execute in kernel mode 
DAd4 ! 5: Input Parameters: 
Be a 

rr ! 03 : Output Parameters: 

- 2 ! ip : none 

ANS 1 18 : Implicit Output: 

AOS 1314; 

aoe 1316 * 

AOS 1 3 SIP_CLUSTER_INIT: 

003C . 4 ' 18 -WORD “M<R2,R3,R4,R5> 
. é } Y IFCLSTR 2$ :; Branch if cluster system 
. : ! § : This system will never participate in a cluster; enable unrestricted locking 
seamed © one A : 1324 CLRB G4 CKS6S_STALLREGS 
ai3 : 5 BRW 0 
Ale ! P Create the stand-alone configure process 


L 1 
SYSINIT = SYSTEM INITIALIZATION PROCESS 16-SEP=1 :10:0 P 9 
v04-000 SIP CLUSTER_INIT - Cluster related initi mae Pi Bg: de: 0% ¥Eys ail Sys HN TF mars 1 a (9) 
Al? 1 2$: SCREPRC_S IMAGE = W*STAC_IMAGE,=- 
Al? 1 INPUT = W*STAC"OPER,= 
Al? 1 OUTPUT = W*STAC OPER, = 
Al? 1 ¢ ERROR = W*STAC op PER. - 
Al7 1 PRVADR = W*STAT_PRV *MSK,= 
Al? 1334 QUOTA = “WPSTAC GLIST,=- 
Ale ! 5 BAS i = WeStAC. bag. 
Al? 5 ote = mr 806 
03 50 58 A4B 1 § BLBS 0 3$ ; Branch on success 
OOBA 1 4 1 BRw 1068 3; Can't create process 
ney yey Oe 
Ae ! tg ; Tell the connection manager to proceed with cluster formation/creation 
50  Q0Q000000'GF 0D AS51 1344 MOVL G*CLUSGL_CLUB,R ; Address of CLUster Block 
1c Ad 90080000 SF FB ASB 1345 BISt2 SCLUBSRCTNIT CLUBSL_FLAGS(ROD | See TateSeLioueion #195 
OAs ! i : Output message indicating that we are waiting to join/form a cluster 
51 F7FF CF 9E A6 134 MOVAB W*SIP_CLU_MSG,R1 ; Add s of ted stri 
50 81 QA vt: 1350 MOVZBL (Ri) +7RO 2 3 Character count pea Sth 
078D 630 ae : 2] BSBW SIP_TYPOUT 
ne ! 38 ; Loop waiting for node to join cluster 
A 1355 jos: SSETIMR_S EFN=#0,DAYTIM=W*SIP_CLU_ TIMOUT 
09 50 €9 OA7A 1 2$ BLBC ~RO,15$ ; Branch on error 
A7D 135 SWAITFR_S EFN=40 ; Wait for time-out 
009¢ 30 rt] 1 28 15$: BSBW “SIP tne ort : Perform quorum file lookup 
50 29000900" GF DO OA 135 MOVL G*CCUSGL_C ; Address of CLUster Block 
CAO 00 1 30 1360 BBC #CLUBSV chy SER i Loop until node is a 
95 1361 CLUBSL VFLAGSCROS, 108 : uster member 
Wee 1 $¢ ; If it was not already. start 
O1AD «= 330 - ! o7 BSBW SIP_START_QUORUM_TIMER 3 eeethe quorum disk timer 
A98 1365 ; When the cluster if formed or joined, the locking will be enabled -- 
A981 $6 ; i.e., it is enabled when we reach this point. Take out a lock on the 
~ : ? 3 system disk. 
54 00000000'GF DO OA98 1 63 ‘ MOVL  G*CTLSGL_PCB,R4 : Pc addres 
00009900" SF 16 OA9F 1370 JSB G*SCH CHS lOCOckY : Lock /0 date pese for writing 
5 1 p00 QAAS 1371 MOVL #LCKSK_CRMODE ,RO ; Signal shared lock 
1 D& OAAB 1 ys CLRL 3; Don't return lock status block 
55 oppoggeo" + AAA 137 MOVL yt $GL_SYSUCB,R 5 it em f sk UCB address 
3C A 1 AB1 1374 BISB2 m_cCu, “yest _DEVCHAR2(R5) ; s cluster accessible. 
00000000'GF 16 nr 44 ! iG JSB G10CSCOCK. : Take out Lock on system disk 
ABB 1 is : The UCB for the sy qtee isk was created with a vofersace ount of 1 ¢t 
ABB 1 4 5 quote be having the TH rst ASF ICH try to take out a hock t Cetore Locking 
ABB 1379 ; is enabled. | YSINIT fa for any reason (e.g. ailu ve to mount the 
ABB 1 9 3 pyetes disk), this extra reference count will prevent the device lock from 
ABB 1 ; being released in the last channel SDASSGN. Decrement the reference count 
m4 ! 4 ; to avoid this scenario. 
5C AS) 6B?) «C(OABBOC1384 DECW Yess _REFC(RS) ; Decrement reference count 
50 DD OABE 13585 PUSHL R > Save LOCK DEV status 


= SYSTEM INITIALIZATION PROCESS SEP=1984 
SIP CLUSTER-INIT = Clus Ae. related initi "Or Oba ve 42: o 
00000000'GF 16 OACO 1 $ JSB Gr'SCHSIOUNLOCK 
50 po OAs MOVES SP)¢ 
34 ef Bg ACC 1 § BLBC (Se PT a 
ACF 1390 ; 
ACF 1391 ; 
ti ! 36 3 3 when the cluster was formed ned. 
7E 000000'GF 7D OACE 1394 ° mova GTEXESGO ~$YSTIM ,7(SP) 
a ae cr cer Co 
6E 9 CO C2 OADD 1 3 SUBL2  CLUB$Q “NEUTIRE” _REF (RO) , (SP) 
04 AE AO CO 09 OAE2 1 : SBW CLUBS$Q"NEWTIME-R REF +4 (RO), 4(SP) 
6 94 €O CO OAEB 1 8 ADDL2 CLUBS$O “NEWTIMETR (SP) 
04 AE 0098 ¢ p AED 139 ADWC  CLUBS$Q “NEUTIME+¢ (RO) 4 (SP) 
— 7F OAF3 1400 PUSHAQ (SP) 
00000000'GF 01 FB AFS 1401 CALLS #1,G*EXESSETIME_INT 
E 08 f FC 14 : ADDL2 #8.SP 
0 00° 3C OAFF 1403 308:  MOVZWL S*#SS$_NORMAL,RO 
04 9 1404 ET 
185 
i 1409 | Error locking system disk - this is fatal. 
51 F641 CF Hi 03 1409 $0$:  MOVAB W*LOCKERR, R1 
O6EE 08 1410 BRW SIP_F 
$e Velg i Error creating stand-alone configure process 
50 0B 1414 1008:  PUSHL RO 
50 0496'CF 7E op 1415 MOVAG W*STA 
O1DD'CF OF 00 0480 60 1 1416 movcS (RO) ax (nos 0, #15, W°CREPRCNAM 
51 O1C4"CF SE OBIB 141 MOVAB wrcR REPR RCERR 
01 082 1418 POPR #*M<RO> 
0604 31 OB22 1419 BRW SIP. FATAL 
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Unlock a 1/0 data base 

Restore | 

pete love t bck DEV status 

Branch if LOCR_DEV failed 


Set internal cluster-wide syie sob time using data that was stored in the CLUB 
° 


Current s 
Address 
Subtract local time corresponding 
cluster time 
Add cluster time corresponding to 
reference base 
Address of new veyeten t time 
Establish cluster-wide + intern 
Clear stack 
Indicate success 
and return 


Ht har time 


Message address 
No recovery possible 


Save failure status 

Get process name descriptor 
Copy name into message 
Message address 

Failure status value 

This is the death step 
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SYSINIT = SYSTEM IN IZATION PROCESS “SEP=1984 02:10:0 AX/VMS Macro V04-00 P 1 SY 
v04-000 SIP_LOOKUP_ : - Perform quorum file | eae yi Be de ie8 USYSIN. SREISYSINIT MARS 1 _ diy vO 
- SUBTITLE SIP_LOOKUP_QFILE = Perform quorum file lookup 


3% 

; Functional Description: 
This routine attempts to assign a channel to the quorum disk, = 
the quorum file logical block number, and store it in the cluster 
quorum disk control block (CLUDCB). 

Calling Sequence: 
BSBW SIP_LOOKUP_QFILE 

Environment: 
This routine must execute in kernel mode 


Input Parameters: 


Output Parameters: 
none 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge 


SIP_LOOKUP_QF ILE: 


ODOOOOoeS 
ttt tt tittt ttt ttt pt ttt ttt tt ttt ttt ttt ttt ptt tt tt ppp pt tt etn 
DD APIS SPEED ODLNOIT > 6000 0000 COO» do UP UT UUD UV UTUTUVUTUTUTUVUVUTUTUTURUTURUTURUN r 


54 Q0000000'GF 00 MOVL G*CLUSGL_CLUB,R4 3; Get CLUB address 
! 53 00B4 C4 9 MOVL CLUBSL_CCUDCB(R4) ,R3 ; Get CLUDCB address 
44 1 BEQLU 1$ : If zero, there is no quorum file 
1C Ads 3 TSTL CLUDCBSL_QFLBN(R3) 3; Have we already found it? 
a” oe ; BNEQU 18 : Br if yes 
3 ; Get the full device name, store it in the CLUB, and form the full quorum 
; 3: file specification. 
00B8 C4 §95 ; TSTB ee aaaiaiechaaias ; Is name already in CLUB? 
rT Va BNEQU $ ; Br if yes 
18 8 3 PUSH #*M<R3,R4> ; Save CLUDCB and CLUB pointers 
10 20 A 4 8 LOCC #*A/ /,ACLUDCBSS_DISK_GUORUM,- ; Locate end of quorum disk name 
00000000' GF 4 9 G*CLUSGB_QDISK 
10 50 a3 4 0 SUBW3 RO, #CLUDTBS$S_DISK_QUORUM,- ; Adjust descriptor size 
O4FD'CF 4 1 w*SIP_QD DESCR 
4 ¢ SGETDVIW_S EFN = #0,- : Get full device name 
4 DEVNAM = W*SIP_QD_DESCR,- 
4 4 ITMLST = W*SIP"QD-ITMLST,- 
4 5 10SB = W*SIP_QB_!0s8 
50 9 6 § BLBC RO,7$ ; Br if error 
CF C ° MOVZWL W*S1P_QD_10SB,R0 ; Get completion status 
50 «EB 8 BLBS 0,2 ; Br if success 
18 A 7? 7$: POPR #*A<R3,R4> ; Restore registers 
CA 1 7 0 1$: BRW 6 
9s A 1 2$: SUBW #2,W*SIP_QF_DESCR,RO ; Get adjusted size 
2 : MOVC3 RO, W*SIP~QF ~BUFFER+1,- : Put name in CLUB 
C4 CLUBST_QBNARE+1(R4) 
6— 7D 8 4 MOVa (SP) ,R3 ; Restore CLUDCB and CLUB pointers 
CF 36 5 MOVZWL W*SIP_QF_DESCR,RO : Get size 
9¢ § SUBB a5 eG) CLOBST QONAME (R4) ; Put adjusted size in CLUB 
Ci 0896 ADDL3 = RO. #SEP_QF_BOFFER,RO : Get ad 


ress to put file name 
| 
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SYSINIT - SYSTEM INITIALIZATION PROCESS =SEP=1984 02:10:02 VAX/VMS Macro Vv04-00 P SY’ 
v04-000 SIP_LOOKUP_QFILE = Perform quorum file | ety 7 BF: 48:08 LOYSIN] «SRETSYSINIT MARS 1 = (i; vO 
OSOS'CF 14 A BIE 147 ADDW WSIP_QF_NAME_SIZE,W*SIP_QF_DESCR ; Add file name size into de 
ote x 1475 MOVES #SIPCOF NAME SIZE = ;"Move file name into buffer 
Q0000000'GF 16 OBA9 1481 JSB G*CNXSD1SK_CHANGE ; Tell connection manager 
18 BA oat 1? § POPR #*M<R3,R4> ; Restore CLUDCB and dat pointers 
BB1 1484 ; Assign a channel to the quorum disk and use the channel number to 
pee 1486 ; get the quorum disk UCB. 
52. O4F1'CF 3€ OBB 1487 $$: MOVAW W*SIP_QD_CHAN,R2 ; R2 is channel word pointer 
55 OC A3 06 0OBB6 1488 MOVL CLUDCB$L“UCB(R3) ,R5 ; Get the quorum disk UCB address 
24 1 BBA 1489 BNEQU 4$ ; Br if we have it 
$5 1e3y SASSIGN_S abe a oe 3; Assign channel to quorum disk 
76 5 §? BCcB 1238 BLBC RO,6$ ; Br if error 
55 6 ¢ OBCE 149 MOVZWL (R2).RS : Get channel number 
55  00000000'9F 5 C BD1 1494 SUBL3 R5,a#CTL$GL_CCBBASE,R5 ; Form CCB address 
55 65 00 OBD9 1495 MOVL  CCBS$L_UCB(RS5),R : Get UCB address 
OC A3 55 dO 443 1238 , MOVL R5, CLODCBSL_UCB(R3) ; Store UCB address in CLUDCB 
OBEO 1498 : The quorum disk may not be mounted. Check to see if the volume valid 
pBee 1333 3; bit is set in the UCB. 
28 64 AS OB~ €E0 pare 138) $: BBS #UCBSV_VALID,UCBSL_STS(R5),5$ ; Br if volume is valid 
BBE? 1308 : The volume is not valid, issue a PACKACK QI0. 
pee? 1303 $Q10W_S _. = Athy ; Issue packack Q10 
OBES 1507 FUNC = #10$.PACKACK,- 
per 3 1508 IOSB = W*SIP_QD_10SB 
3F 50 §? bc ¢ 1509 BLBC RO,6$ ; Br if error on qio request 
50 O4FS'CF 3¢ C0 1510 MOVZWL W*SIP_QD_I0SB,RO : Get 1/0 status 
37 50 ~=«ED Been 1313 BLBC RO,6$ ; Br if 1/0 error 
Gcop 1318 : Do the file lookup with FILEREAD. 
03 BcgD 1515 §s: PUSHL #3 ; Don't use cache or root directory 
7E 7C QCOF 1516 LRQ = (SP) ; We don't want retrieval pointers 
O4F5'CF 0C11 1517 PUSHAL W*SIP_QD_STATBUF ; Address of 2 longword block to 
0c15 1518 3 return LBN of the first block 
Bele 1519 : and the file size. (in blocks) 
0200'CF DF C1 1520 PUSHAL W*SIP_A_FILEHDR ; Address of file hdr buffer 
Bond. CF DF OC19 1521 PUSHAL W*SIP_A_INDEXFHDR ; Address of index file hdr buffer 
OS'CF DF OQOCID 15 § PUSHAL W*SIP_QF_DESCR ; Address of file name descriptor 
be DF OC21 15 PUSHAL (R2) ; Address of channel number 
00000000'GF 0 F C23. 1524 CALLS #8,G*FILSOPENFILE_1 ; Open quorum file 
7 3: 2 : . 1 5 BLBC RO,6$ ; Br if error 
: 4 12 ; : We have found the quorum file. Store the logical block number in the CLUDCB. 
O4F5'CF DO C2D 12 ] ‘ MOVL W*SIP_QD_STATBUF ,- ; Store LBN in CLUDCB 
1C A3 C31 1530 CLUDCBSL QFLBN(RS) 
0¢ BO OC 1531 MOVW #CLUDCBS$A_QS READY. ; State is now READY 
20 A C 1 3 CLUDCB$W_STATE(R3) 
0008 30 OC 15 BSBW SIP_START SUPRUA, TIMER ; Start the quorum disk timer 
CSA 1534 SDASSGN_S CRAN = TR2) ; Deassign channel 
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= Start the quoru 5-SEP-° 84 04:04: SYSINI.SRCISYSINIT.MAR; 1 (12) 


7 «SUBTITLE SIP_STakf QUORUM_TIMER = Start the quorum disk timer 
: Functional Description: 


moe 


This routine starts the quorum disk timer by inser’. ‘@ quorum 
TQE in the system time queue. It first checks to se. t has 
already been placed in the queue and if not requests an immediate 
timeout. 

Calling Sequence: 

BSBW SIP_START_QUORUM_TIMER 

Environment: 

This routine must execute in kernel mode 

Input Parameters: 
none 


Output Parameters: 


SOOCOCCOOCGCOOCOSCOSOOOCOOOOCOCOSOSOOOOOOOCOCOOOSoO -- 
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DD GV Be BS BS SB EE EPP PPE PPP PPP PPL PLES 
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none 
SIP_START_QUORUM_TIMER: 
55 Q0000000'GF 00 MOVL G*CLUSGL_CLUB,RS ; Get CLUB address 
55 00B4 C5 dO OVL CLUB$._CCUDCB(RS) RS ; Get CLUDCB address 
> eee BP: BEQLU 1$ :; If zero, there is no quorum file 
55 14 AS ye) OVL CLUDCBS$L_TQE(RS),R5 ; Get TQE 
65 05 TSTL TQES$I_TOQFL(RS) ; Is it in queue already? 
Ob 12 BNEQU 1$ ; Br if yes 
50 Q0000000'GF 7D MOVQ G*EXESGQ_SYSTIME,RO ; Request an immediate timeout 
00000000 ' GF i . j38 G*EXESINSTIMQ : Insert in queue 


SYSINIT = SYSTEM INITIALIZATION PROCESS 16-SEP-1984 AX/VMs - 
9002000 SIP_START_QUORUM_TIMER = Start the quoru ae eet 9 yatr4 03 SYSIN atest 1) maRs1 — 3) 
C69 1574 :44 
C 3 f3 : FUNCTIONAL DESCRIPTION: 
: 4 1 i 3 Merge the XQP into this process. 
C69 1579 : INPUT PARAMETERS: 
C69 1580 ; 
C69 1581; None 
C69 1 gi 
C69 1583 ; OUTPUTS: 
88 13 ¢ ; RO = STATUS CODE 
3 = 
ee 1 an 
C69 (15 
C69 1588 SIP. XQP_MERGE: 
0000 0C69 1589 WORD 

C6B 1590 SIMGACT_S NAME | . XQP_NAME,= 

0C6B 1591 DFLNAM = Rie DEF ,- 

0C6B 1398 INADR P_TNADDR 

0C6B 159 IMGCTL = MOIRCSM TRERGESIACSR _EXPREG,= 

0C6B 1594 RETADR = XQP_RETADDR 

0C6B 1595 HDRBUF = XQP"HEADER 

10 50 £9 0€96 1596 BLBC _—s RO, 108 
0699 1597 SIMGFIX_ 
06 50 £9 OCAQ 1598 BLBC 10$ 
00000243'FF 17 OCA3 1599 JMP axQP_RETADDR 
04 OCA9 1600 10$: RET 
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SYSINIT = SYSTEM INITIALIZATION PROCESS 1 = SEP-1984 02: 10:08 AX/VMS Macro V04-00 Page 36 | 
v04-000 SIP_MAPXQP = Create global sections for “SEP-1984 04:04: SYSINI.SRCJSYSINIT.MAR;1 (14) 
a ] ee : -SBTTL SIP_MAPXQP = Create global sections for xaP 
CAA 4 ¥ FUNCTIONAL DESCRIPTION: 
CAA 1 § : Create the global sections needed to map the XQP into processes 
~~ 18 5 The SYSGEN parameter controls whether or not they are resident sections. 
CAA 09 : INPUT PARAMETERS: 
CAA 181) : XQP IMAGE HEADER 
CAA 1618 ; OUTPUTS: 
CAA 1615 : RO = STATUS CODE 
CAA 1616 : 
A 8 
CAA 1619 SIP_MAPXOQP: 
003¢ CAA 1620 .WORD “M<R2,R3,R 
52. 0000'CF C OCAC 1621 MOVZWL W*SIP_A ERLAUFE ERs osu. S12 SIZE. Pi OFFSET iN IMAGE HEADER TO ISD 
52 0000000085 GS BL 1886 sos, RPE fEunoPeEREGHESEM-P?: ABONESS gh FIRST 1s 
B OcBA 1626  — BEQL 5$ : res 
19 OCBC 1625 BLSS 0$ : ERROR = THERE CAN'T BE THIS MANY ISD'S 
00000000° e D5 OcBE 16 $ TSTL §XQPS$GL_DZRO : HAVE WE ALREADY SEEN DZRO 
iC if CC4 (16 BNEQ 208 : YES = IT WAS SUPCPOSED TO BE LAST 
00020405 af D OCcc6 16 8 BITL df tte PUnesinds en VECTOR | ! ISD$M_GBL ! ISDSM_FIXUPVEC - 
3 12 CCE 1630 BNEQ ILLEGAL ISD TYPES 
55 02 A2 3C OCDO 1631 MOVZWL Ispsw PAGCNT(R2), ge ES | IN THIS seC TION 
1108 a2 01 =O ET «=«(OCD4 S16 é BBC naek D$_CRF, Fg fgpat Recent Fe si SECTION 
QO0000000'EF 55 DO OCD9 16 MOVL  R5,XQPSGL NOU G DZRO IS 
5sE 1 Oceg 16 4 BRB 50$ 
50 00000000'8F 00 tes 1636 08: MOVL  § #SS$_BADIMGHDR,RO 
ae Tiago 
50  0000C001 er nyt) cEA 16 § S0s: MOVL $#<SECSM_GBL!SECSM PERM! sé¢ cH SYSGBL> RO DEFAULT CHARACTERISTICS 
04 00000000'EF 00000000'8F £1 OCF1 1640 BBC #EXESV_ROP_RESIDERT EXE $GL astA TC _FLAGS ios :CHECK SYSGEN PARAMETER 
0050 Ob €E2 OCFD 1641 BBSS _ #SECSVRESTDENT,RO,4 ; REQUE TA RESIDENT SECTION 
bot 1648 40$ SCRMPSC_S - ; A GLOBAL SECTION 
DO1 164 “FLAGS = 
DO1 1644 GSDNAM = ay GSD DESC. 
p01 1645 VEN = SDSL VBN(R25,- 
p01 1 46 CHAN = XQPFAB+FABSL “$1v,- 
D01 164 ACMODE = #PSLSC_EXEC,= 
p01 1 48 PAGCNT = RS 
50 €9 OD28 164 BLBC —=_—«aR”O 3s 
09000000'EF 6 D 8 1 0 INCL  XQP$GL_SECTION : COUNT THIS SECTION 
20 000° EF p31 1 CMPB =: KQP$GL~ “SECTIONS, #32 
AB 13 OD38 1 g BEQL 20% TOO MANY ISD'S 
QOOOOIFD'EF 96 5A ; INCB §XQP_GSDNAM+XQP_GSDNAM_ sid-1 ; NEXT GLOBAL SECTION NAME 
53 63 3 D9 1655 50s MOVZWL ISD$W_SIZE(R2).R3 
¢ D431 ‘ ADDL R3,R2 
FFOF D46 165 BRW § : NEXT ISD 


IA ALTTATION PROCESS 19° Habs be 10:08 eae Macro V04-00 Page 37 | 


SYSINIT - SYSTEM IN 

v04-000 SIP_IMAGE_A ead header, get is a 5-SEP=1 SYSINI SREISYSINIT. MAR; 1 sid 
+ ~SBTTL SIP_IMAGE_ATT = Read header, get image attributes 
ef * FUNCTIONAL DESCRIPTION: 


READ THE IMAGE HEADER OF AN IMAGE AND RETURN THE COUNT OF 
nage HEADER BLOCKS AND THE HIGHEST VBN THAT IS el OF THE 
IMAGE, I.€. EXCLUDING SYMBOL TABLE AND PATCH STUFF 


INPUT PARAMETERS: 


RO = CHANNEL TO READ FROM 
Ri = DISK ADDRESS TO READ (LBN OR VBN) 
LAST VBN IN FILE 
R FUNCTION CODE (READ LOGICAL OR READ VIRTUAL) 
OUTPUTS: 
RO = STATUS CODE 
Ri = HEADER BLOCK COUNT 
R2 = LAST VI 
EXCLUDI tet SYMBOL TABLE AND PATCH AUDIT TRAIL TEXT. 
R3 = IMAGE HEADER ADDRESS 


SIP_IMAGE_ATi: 
$010W 


SVVVCVS CCC VCC CCVC CCC CUOCUCUCU9C"U"0"00"00020"000 
DWONINNOR ERR RR RRR RRR PPP PPP PPP PPP PP PPE 

FHM OD—M OOODOO OOOO DOOD DDDDODDDDDODODDOD0D0D000000 
ce a a at a = et ot od 8 8 8 8 SS th 
PAA AAAAA AA AAA AAA AAA AMAA AAAI AAPA IAAAAAAOAAAAM 1-4 
WOO WOOO OO 000.00.00.09 0090009 09.09 09 SIMI NII NIN NINN NIAAA AAAAAAAAU 
WONANE WO ODNOAU EWN $0 ODNOU SW OODNOAUE WOO 


COOCQOoQooooooooooooooooooooo 


s- ; READ THE IMAGE HEADER 
EFN = #1 = : EVENT FLAG 
CHAN = RQ : CHANNEL D ON 
FUNC = R3 = READ VIRTUAL OR LOGIC 
1OSB = W*SIP_Q_STATBLK - ; I/O STATUS BLOCK ADDRESS 
Pl = WeSIPIATERLBUFFER = > BUFFER TO READ I 
P2 = #512 = : ER OF BYTES TO READ 
P3 = RI ; DISK BLOCK TO READ 
13,50 £9 BLBC ~=—_-«RO, 1008 : BRANCH I 
50 OOFO'CF 3¢ MOVZWL W*SIP_Q_STATBLK,RO : GET 1/0 STAT 
0B 50 £9 BLBC —s RO ; BRANCH IF ERROR 
53 0000°CF OE MOVAL W*SIP_A_ERLBUFFER,R3 § ; HEADER BUFFER ADDRESS 
0004 30 BSBW BOCS RAGE ATT : GET IMAGE ATTRIBUTES 
50 00° 00 MOVL “#SS$ ANORMAL, RO 
05 100$: RSB 


| 
| 
CO 
BL | 
RTUAL BLOCK NUMBER IN IMAGE 
EA 
| 
} 


TEM 
G 


i) 
rsa 


H 
eee eon tro MCHSCIS RRSLEG UIA MEST ATATAoass PH 


- -SBTTL BOOSIMAGE_ATT = Get image attributes from image header 
; Functional Description: 
BOOSIMAGE_ATT returns to the caller some attributes of the image 
Calling Sequence: 
BSBw BOOSIMAGE_ATT 
Inputs: 


i oN 


Size of file in blocks 
Address of image header block (first one only) 


Outputs: 
R1 = Number of image header blocks at the front of the image 
R2 = Size of snaps in blocks excluding the blocks at the end 
containing local symbols, global symbols, or patch text 


FUPUPUSUSUSU SUFFI Srv 


OOSIMAGE_ATT:: 
Rov EUL HOSW_SYMDBGOFF(R3),RO ; gM oe TABLE INFORMATION? 


4-4-4 4-444 _A_ 44444 AAA A_A_A_A_A_A_A_A_ ALAA 


San 


oo a sb ss ss 2 2 2 — a a as — 2 ss a 2s 2 ss 2 a as 2 ss 2 ae 


EQ 0$ ; BRANC 
443 Beuee IRSSL DST VENCROD ERS AI ; oer as ‘1 VBN IN DEBUG SYMBOL TABLE 
D91 MOVAB = IHSS$L_GSTVBN(RO)CR3),R1 ; ADR OF 1ST VBN IN GLOBAL SYMBOL TABLE 
44 BSBB ; PROCESS IT 
D9 20$ MOVZWL JHDSW_PATCHOFF(R3),RO  ; ANY PATCH CONTROL INFORMATION? 
D9C BEQL $ ; BRANCH IF NOT 
4 aeeee JHPSL_PATCOMTXT(RO)CR3I,R1 ; ADR ss VBN OF PATCH COMMAND TEXT 
A 30$ penne IHD$B_HDRBLKCNT(R3),R1 ; GET IMAGE HEADER BLOCK COUNT 


; SEE IF VBN IS NON ZERO AND THEN IF IT IS SMALLER THAN THE CURRENT SMALLEST 


oN DDL tt 


PPE MAW AAI AI PONIPNINNPN) SS BOO OOOO 


PAWN 9 OD NAN EWN 9 OD NAN EWN  O OD NOAM EWEN SO OONOUE WP 


DAA dos: SUBL3 #1, (R1),R1 : FETCH VBN = 1 

DA Biss 508 + BRANCH IF NO VBN IS PRESENT 

DB CMPL Re R1 : IS IT SMALLER THAN THE CURRENT ONE 
DB BLEG }3=s_- 5508 t BRANCH IF NOT 

DB MOVL  R1,R2 : YES, USE IT 

DB 50$:  RSB 


SSS | 


Sap init 
v04-000 


a aia a i ai ii i i a a tt tk a a a 2 a = a a a a a a tt ss bos eas 


DOOD IO LOLOL LEPC LLLLLTLTLLOlelrvvwvwrrrrsrsi = Pt 


SOOOOS OOO OOO OO OO 090909 09.09 G9 69. 69 09 09 SI NINN SNS NNN NPA AAA AA AAA UMMIMIMIVIVIVIVIVIIUIT EE = 


PEA SO OD NA NEW 9 OD NO NE WIN 8 OO NONE WWI 0 OD NOAUE WI OOONAOULS WI O)O >) 
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1 2 
TION PROCESS i i 14 
ON KERNEL LEVEL 


tat 


3+ 
: FUNCTIONAL DESCRIPTION: 


AX/VM cro 


“1986 Be:deie ESYSIN 


«SBTTL SYSTEM INITIALIZATION KERNEL LEVEL 


mm», 


Pp 
te LEVEL ACCESS. 


r DATA BASE 


wr 


OPERLY LOGGED. 


; CALLING SEQUENCE: 


ENTER VIA THE CHANGE MODE TO SYSTEM SERVICE 


; INPUT PARAMETERS: 


NONE 


; IMPLICIT INPUTS: 


REIS SYSINIT 


en 90 
«MAR; 1 


ERFORM SYSTEM INITIALIZATION 


ACE 
R LOG ENTRIES FROM CRASH DUMP 


Page Pi 


-1 IF NO SUCH FILE 


LOCATION "'SIP_A_FILATT’’ CONTAINS A LIST OF ADDRESSES OF 
FILE ATTRIBUTES” BUFFER 
1) PAGE FILE 
SWAP FILE 
) RMS 
THE FORMAT OF THE ATTRIBUTES BUFFERS IS: 
«LONG STARTING LBN IF GONT 1GUOUS 0 IF NOT, 
-LONG SIZE OF FILE IN 512 BYTE BLOCKS 
-LONG FIRST VBN IF IMAGE FORMAT 
LONG SIZE IF IMAGE FORMAT 
-LONG BYTE COUNT OF RETRIEVAL POINTERS THAT FOLLOW 
-LONG BLOCK COUNT FOR RTRV PTR 1 
LONG LBN FOR RTRV PTR 1 
LONG BLOCK COUNT FOR ATRY PTR N 
-LONG LBN FOR RTRV PTR 


; OUTPUT PARAMETERS: 


; IMPLICIT OUTPUTS: 


; COMPLETION CODES: 


RO IS RETURNED TRUE OF FALSE DEPENDING ON 
INITIALIZATION SUCESS OR FAILURE 


' 


ie 
SYSINIT = SYSTEM INITIALIZATION PROCESS 16=SEP=1984 02:10:02 VAX/VMS Macro V04-00 Page 4 
902-000 SYSTEM TW ACT DAS TON KERNEL LEVEL moet 82:48:28 YOYSINT. GRETSYSINIT OMAR: 1 ° i) 
PB? 1806 : 
DB ; SIDE EFFECTS: 
DB9 1809 SIP_KERNELRTN: 
OFFC ODB9 1 <WORD “M<R2.R3, Rs RS RS. R7,R8,R9,R10 RIL : ENTRY MASK 
33 90000000" 9F DBB 181 MOVL a#MMG$GL T BASE ADDRESS OF GPTE 
04 A3 000000' bce ASHL 72 ORSCHSCL. AAnaPccr, 4nd); eat GLOBAL PAGE TABLE ENTRY 
50 1888090 BF DO ODCB 1814 MOVL EXESGL SYSUCB,RO PICK UP ADDRESS OF SYSTEM UCB 
01080000 CA ODD2 1815 BICL DEV A FOR !DEVSH “onto CLEAR FOREIGN AND MOUNTED FORM INIT IN 
Opps 1 18 UCB DEVCH AR(RO) ; SYSTEM DISK UCB CHARACTERISTICS WORD 
4a 0000 0000°EF DO ODDA 181 MOVL SCHS$GC_CURPCB,R1 GET CURRENT PROCESS PCB ADDRESS 
CAO 6 DO ODE! 1818 MOVL  PCBSL “pIDER ID, *UCBSL _PID(RO) : ALLOCATE SYSTEM DEVICE 


k 

SYSINIT = SYSTEM INITIALIZATION PROCESS SEP=1984 AX/VMS Macro V04=00 ° 

0-000 SIDINITPAGEIL “Initiotice PACEFILE.SYS ScSEPCORG BesOeiee LONSNE eaesSyeourgomans:  Pa0e (ff 
-SUBTITLE S1P_INITPAGFIL Initialize PAGEFILE.SYS 


: Now initialize PAGEFILE.SYS if it exists 


; The following register conventions are used in INITPAGFIL 


R5 = Address of the first block * Bs dump header 

nes Address of the Boot Contras Bt 

R Number of blocks of page file to jterereney reserve for 

a g qynet by header. if dump f ¢ is not in the page file 

dump file is in the page f 

R8 = we of blocks of page file to initially ma mark ‘‘in use" 

because the dump is in the page file and is supsesse to 

page file. 


be analyzed eepore the pages? are released to t } 
e dump. 


R9 = Contents of SIP_L_PAGAT page aig gcentetes 
The page file attFibutes block Od ress not. 


S1P_ INITPAGFIL: 
: Since the dump file may be at the front of the page file, 

3 we will read the 3 header blocks of the dump file and 

3 process some information now. Later the ‘ reeters error Log’ 
: y 


code will not have to read or update the dump. It will on 
; have to process and save the error log entries if any. 


57 CLRQ R7 Init for separate dump and page files 
59 0128°CF MOVL W*SIP_L_PAGATT,R9 Page file attribute block address 

03 5¢ Branch if separate page and dump files 

57 04 OD MOVL #4,R7 Dump is in page file 
never page to first 4 blocks 
56 Paes 54'S EF 0 5$: MOVL EXESGL_BOOTCB,R6 Address of Boot Control Block 

9000; CF OSE MOVAB WrsiP_A_ERLBUFFER, RS Buffer to read into 

-"S DD PUSHL W*SIP_L_DSKCHAN Channel to read disk 


H 
PUSHL #10$ REXDLBLK Read function 


Sete Se Se Se Se Fe Fe Se Se Se Se Se Ge Se Se Se 


E 03 5 C OTL #3,-(SP pesune reading 3 p 
03 1C AB O01 CMPL BOOSi _DMP_SIZE (RG) .#3 ump file st least that big? 
0 18 BGEQ % branch’ if zee 
6 D4 CLRL (SP) No blocks to be read 
6 oF 108: PUSHAB (R5) 
¢ A6 DD PUSHL BOOSL_DMP_MAP(R6) Virtual to arogical map for dump file 
A6 OD PUSHL BOOSL” -DAPT “VBNCR 6) Starting VBN of dump file 
06 DD PUSHL #6 6 arguments to RWVB 


At this point there is an argument List at the sep of oe 2 ptecs 
for the call to QIO_RWVB. This argument list is 7 = 

exiting this ‘paragraph’ when a write of the first block oo the 
dump header may be needed. 


CLRL W*SIP_L_ERRSEQ 
16(SPT 


Oss ce Zero pevee poquence number 
0 AE 


TSTL Any b o538 Se to read 

BEQL | hag 

CALLG (SP),W*QI0_RWVB inft® Q10 Read virtual Block 
CLRL 16(SP) 


MMMMMMMMMMMMMmMmmmnmmmmmoOOCOCCVCVCCVCVCVTCVCCVCCVVCVCCVCVCVCVVCVCC,CCcC"9,"CcC"co—o0 =m 
PIED DOI tt I GQQ OO FFF VU FTE FTI TU ETUCTUCTULTUCTULTUCTUCTUCTUCTICTICTICVICNVICVICTICNUCTICTOCVICTICVICVICTICNICVICNIOCND 64 
a a a ee a a a a a a CTI 
NA ALN § OOD NIA NE WIN SO OOD NIA ME WIN  O ODA UNE WIN 0 OD NAME WP O OONOUS Wn 

wo 

=z 

m 

© 


HD COW SD DW DW DW DW PH PH OWUMVIOM OH HE PIM QING OPA AA AA AA AA AA AAA AOA AAO AAAS OAA SA 


on 
SoNon 
SOOSOOOOSCOSOSOOOOOOOOOOOSOOOODODOOOO OOOO OCOOOOOODOOOOOSDOOOOOSDO 2-1 


1087°CF F 
ry D 

E 

8 


6 i?" no write of page. 
RO ,60$ A error reading f 
CMP © DMP SW_DUMPVER(RS) .#SIP_C DUMP ER ; Must be knoen dump version 


a le eal eae Mee 


L 
ALIZATIO CESS 16-SEP-1984 02:10: AX/VMS Macro v04-00 Pp 4 SY 
iitielioe’ PAGEFILE.SYS g- fF =}382 BF: be: 8 SYSINI.SRCIJSYSINIT.MAR;1 al dh vc 
BNEQ 60$ ; Branch if earlier system or b 
MCOML DMPSL Pst cae (R5),RO ; Get complement of system corkian 
CMPL RO DAP K(R5) + Does check match? 


The dump file header looks OK, indicate that we can save error log 
entries if any are present. 


SYSINIT - 
voe-000 $1 


wv 
> 
az 


a an a ak a ak a et a th 2 — a a > 2b ss 4 a 9 2s a ts ss Tew 


; Branch if earlier system or garbage 


0124'CF $3 9 MOVL pnesl. ERRSEQ(RS) ,W*SIP_L_ERRSEQ ; Save sequence number 
1 BEQL ; Branch if already zero on disk 
83 Be CLRL oot FonscecRs) + Save these ERL encries only once 
10 AE 01 9 C ROTL 6(SP) ; Indicate that block is to be written 
; See if the dump is in the page file and if it should be preserved 
bos: TSTL RG : seperate dump and page files? 


59D 
2F OOOOOOOO'EF 00° if 
2A 04 A5 00 €0 
50 60164 ¢5 O07 CB 
00000000'8F 50 01 


65$ Bra if yes 
BBC S“#EXESV_SAVEDUMP, EXESGL_ FLAGS, 80s: Branch if not 
yepe s8§ to preserve the dump 
BBS #OMPSV_OLDDUMP, DMPSW ~FuAes (5) Don't preserve dump 
ze 

BICL3 #7, DMPSL_CRASHERL +EMBSK tenorisenast_t CR_CODE (RS) .RO 

; Fetch crash Bde, zero severity 
CMPL RO, #BUG$_OPERATOR ; ‘Operator Requested Shutdown?’ 
BEQL 50$ ; Branch if yes, don't preserve 


Loop through the memory descriptors and calculate the number of pages 
: of dump to preserve. 


; ASSUME owe eet EQ RPBSC_NMEMDSC 


WOOO ODO OOOO W099 09 SNIPPED ADA AA AD I BE EAA 1 
Pt UUW SD SO F DWMAOMOOM PUTS SO DWOMOOOM NIU MMMMma cer 
PAA AODIPININININININIDN 3 9 9 9 * HDOOODOOOSOOCSCOCOOOOO OOO OWWWOMmmcnmwcw me 


COODOOOODOODOOOODOODOWDOOOOVOOODOODOODOOOOOOOOWMO dD coCDcD GD CD CUCU CD OD CD ODCDCDCDCDODODOD + 4 
PAR $9 OD NA NE WIN OOO NO NE WIN OOO NA NE WPI S OO NAN OOO NOA UNE Win OOo 


eA AA AAL AA AAAs es eel esl esl esl esl as esi esl es asl esl esas es eles es esl esl esl esl esis esl esl esl esl esl es esl esl asl esl esol esos esl esas esl esl eles esl eles slo ol 


s3.C<‘< 9A MOVZBL NMEM ae gy" : Res & A+ memory descriptors 
52 246A 9E MOVAB cit Campee memory descriptors 
ss @& @ FR 30$: EXTZV #oMP$? 
9 13 BEQL ; Bh if no more memory descriptors used 
58 =e ADOL2 Bad M. total # of pages 
ASSUME nO;R8 MEMDSCSIZ EQ RPBSC. *MeMDSCSIe 
52 8 C9. ADDL2 H i$ +9 -MEMDSCS1Z,R2 A Get next memory descriptor 
FO 51_—SédéF SOBGTR R1,30 3 Loop once for each memory descriptor 
58 05 40$: TSTL R : Any d blocks to preserve? 
A 14 BGTR 60$ s Bronce f yes 
10 AE 01 9 26 50$: ROTL #9,#1,16(SP) that at, must write the block 
0004 a5 O01 € BBSS § #OMPSV_EMPTY,DMPSW_ runasinsS: 7,608 k dump empty for SDA 
ire nat try to analyze 
: . * partie ly) overwritten dump 
59 03 60$: TSTL R9 : Address o pa 6 file attributes buffer 
OA 1 BNEQ 65$ ; Branch if SYSINIT looked up page file 
3; Dump file is _ in page ihe. SYSBOOT ‘‘opened’’ PAGEFILE.SYS and called 
3; it the dump file. So the retrieval information and the file size 
3 are in the boot lenkval block fields fer the dump 
3 20 A6 OCOD MOVL BOOSL_DMP_MAP(R6) ,R2 ; address of page file mapping data 
eG a8 p 99 ROVL $L santeniges R46; Size of page file 
2? 10 A D oF 65$ MOVAL RTRVLEN(R9),R 7 (A address of page t file mapping data 
4 O4A9 D AS MOVL PILESIZECROS a : page 
50 54 O07 8B a 70$ BICL3 oR4,R 3 i zero length f te is also useless 


"PAGCNT Peale paint “fads RO; Get page cnt for this mem 
| 


ve 04-00 Page 43 
- NITIALIZATION PROCESS 16-SEP-1984 110: AX/VMS Macro V ; (4) 
riety ) SIP INTTPAGE IL Initialize PAGEFILE.SYS ety 7 8F:h0: 98 a lace? 
3; Enough room left in page e 
ar cf EAE ; Met R ASIP C_MINPAGF IL j after resers ng the dump portion 
piped } $ BoE «Ssagosti ; Branch if ye 
M Fee | TSTL R :; No, then don't preserve the dump 
; Fao | BEQL 100$ ; Branch if too small anyway 
5 hi BS i 4 CLRL R ; No dump data preserved 
BRB 50$ 
oat }) EBE i 80S: BSBW SIP_INIWCB ; Allocate and init a window saad block 
; t SINITPAGFIL on the stack. Ignore returne 
EE : re : tT Bl re its Be Aa yet parameter. Use WCB address returned 
EC 1946 : by ’sip_INIWC. 
; to mark ‘'in use’ 
7E 57 7D OEC 1948 $0$: mova  R7,-(SP) Count of blocks, om HAL 
Eee 19 CLRQ -(SP) ; Default these two parameters 
i 3 Ee 1384 USHL R 3; Store oe atte cies 
4 DD QOEC9 195 PUSHL R : pees ~ ee lil tics 0 OM 
asec: Bon 96 EB ED 193 sLBe. oa : py next step if successful - 
” 2 i9 ED 13 : BSBB CHECK CACHE 3 fan eiitorem tte cache be deallocated? 
; 2 aga 
e 2? Or 138 mOVAB OU : ora = report an error message 
mr Bee dee ae eiicvarman | f Oeste: terse srre our 
1960 Page file does not exist, or is too small to be useful 
: MOVA PAGFILERR,R1 ; Display paging file error message 
" FIDS SA § EE 1968 toos BSew” SIP_SYSMSG : 
EEA : file Logic must flow through here in 
FEA 13° ; Spiel te catiateiio anit the first dump header block back 
EEA 1,63 > and uncondit onally clean the argument List off the stack. 
SEA 10e8 i ; t of blocks reserved 
canedie k 4 D3 Ft Hi laos: reve | ha canta : Urite the ig file header? 
: ere 135 Rowe hot P ; Phones pees te write 
eae 2000 Bete 1998 CALLG CEP)TWTGIO RVG. : rite the block 
a if 0 3 1954 140$: ADDL s}e4' Sp = ; Clean argument List off stack 
: 16 11 OFO2 1975 BRB SIP_INITSWPFIL 


N 2 
- R 16-SEP-1984 02:10: AX/VMS Macro V04-00 Page 44 
$28 eu ERTEACApETIALZATION Process SEEING SRS2ERE VATCIME SRESSWEOATPO mans P28" th 

FO4 197 » SUBTITLE CHECK_CACHE 
e138 
FO4 4 : This routine checks whether ere is a FILSOPENFILE cache to be deallocated. 
FO4 4 § ; The reason shy this routine is necessary here is that the BOOSINITxxxFIL 
FO4 1985 ; procedures cannot use the local nonpaged pool allocation routine. Those 
FO4 1984 ; procedures are shared with SYSGEN and cannot know about such specialized 
: r 19 5 ; items as this cache in nonpaged pool. 
FO4 19 $ ; f the cache is still allocated, it is deallocated and a success status 
: r 12 ; 3; is returned. 
; r 1996 : Input Parameter: 
£04 199¢ : RO low bit clear 

orbe 1994 > Status Code: 

oF 2 1339 : RO Low bit set => FILEREAD cache successfully deallocated 
Fe 1998 : RO low bit clear => FILEREAD cache was already deallocated 

oF 1999 ; (previous error stands) 

Sroe S00n | 

OF 04 B06 CHECK_CACHE: 

00000000'GF D5 OF04 200 TSTL G*F IL$GQ_CACHE ; Cache still allocated? 
07 3 OFOA 2004 BEQL ; Branch if not <= original error stands 
000011D9°EF 00 FB ores 005 CALLS #0,SIP_CACHE_DALC ; Otherwise, deallocate the cache 
05 OF1 006 10$: RSB ; and return to caller 


00000000’ GF 


1 
7E sey * yee 
BE 0 


7 

04 A4 
QO000000'GF 04 
OD 50 

B6 


EA 50 
51 F218 CF 
02A0 
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a Des Besa Dena Ba Dinca Pens Don Pn Dons Dos Dems Din Bens De Dens De Beka Does De Does es Dee es Dns es Des Dee es a) 


B 3 
jZAT1ON PROCESS 1 
Initialize SWAPFILE.SYS 


- SUBTITLE 


SIP_LINITSWPFIL 


8 97:10:08 yer Macro V04-00 Page (38) 


SYSINI.SRCIJSYSINIT.MAR;1 
Initialize SWAPFILE.SYS 


: Now initialize SWAPFILE.SYS if it exists 


SIP_LINITSWPFIL: 
TSTW 


—BbO ee Ge Ge Ge ee 


O$: CLRQ 


ANDOYDAVYRBOMNO 
——-O Pee Pe DP 


Set up argument 
page file index. 
y SIP_LINIWCB. 


If requested number of swap files is 
zero, then skip this entire section 
Address of swap file attributes buffer 
If file is empty or does not exist 

then skip to the next step 
Get value of SWPALLOCINC parameter 

File size must be at least as large 

«+. $O Skip to next step if too small 
Address of mapping data 
Allocate and init a window control block 


; Default last two parameters 
; Store WCB address 


eee and file size 


; Allocate and initialize a PFL 


Go on to next step if successful 


; Can FILSOPENFILE cache be deallocated? 
; If so, try again 
; Otherwise, report an error message 


and abort the startup sequence 


af283SS35 


AON 
ccc a 


7 
¢ 3 
SYSINIT = SYSTEM INITIALIZATION PROCESS 16-SEP-19 :02 VAX/VMS © v04-00 Page 4 
v04-000 SIP_LINITRMS = Install RMS Image mii 5et) 7 Be: 42: rf YOYSINT «= Ss SSYSINIT.MAR:1 ° Sf, | 
: 9 ‘3 -SBTTL SIP_LINITRMS = Install RMS Image | 
F : +3 ; INSTALL RMS IMAGE AS A PAGEABLE SYSTEM SECTION 
F59 2045 
£39 46 SIP_INITRMS: 
54 O130'CF DO OF59 204 MOVL  W*SIP_L_RMSATT,R4 : ADDRESS OF RMS bite ATTRIBUTES BUF 
56 OC AG D0 OF 48 MOVL MAGESIZE (RG). R6 ; ANY PAGES TO 
28 15 OF62 2049 BLEQ 0$ BRANCH IF NOT 
28 00000000'EF 00° €1 OF 64 050 BBC S*#EXESV_SYSPAGING, EXESGL Liege ea Tr NOT 
52 19 AG 9 FS 3 MOVAB RTRVLEN(R4),R2 : ADDRESS OF MAPPING DATA 
21E F 005 SBW = SIP_INIWCB : MAKE A WINDOW CONTROL BLOCK 
QOOOO000'EF DF OF7 54 PUSHAL MMGSGL_RMSBASE : ADDRESS TO STORE BASE OF SECTION 
OF 0D oF 78 055 PUSHL S*#PRTSC_UR : PROTECTION FOR RMS PAGES 
56 DD OF7B 096 PUSHL 56 ; NUMBER OF PAGES 10. 
08 AS DD OOF7D «(205 PUSHL IMAGEVBN(R4) : STARTING VBN TO M 
32 DD OF8O 2058 PUSHL R + WINDOW CONTROL BLOCK ADDRESS 
00000000'EF 05 FB OF 82 059 CALLS #5,EXESSYS_SECTION ; MAP RMS AS A SYSTEM SECTION 
58 50 E8 OF89 2060 BLBS si : BRANCH IF SUCCESSF UL 
51 F217 CF SE OFBC 2061 10S: MOVAB W"RMSMAPERR RI : FAILED TO MAP RMS 
0265 30 oF9i 06¢ BSBW  SIP_FATAL : ISSUE FATAL DIAGNOSTIC 
OF94 2064 ; IF SYSPAGING = 0 (NOT PAGING THE PAGED PORTION OF THE SYSTEM CODE), 
OF94 2065 ; THEN CREATE SOME (WRITABLE) ADDRESS SPACE FOR RMS AND READ IT IN. 
OF94 2066 ; RMS WILL STILL PAGE IN THE SYSTEM WOR KING SET WHICH MEANS THAT THE 
Bee +44 3; SYSTEM WORKING SET MUST BE LARGE IF THE PAGES ARE TO STAY IN MEMORY. 
51 00000000 ‘EF 56 C1 OF94 069 S0s: ADOL3 R6,BOO$GL_SPTFREL,R1 : ALLOCATE yt FOR RMS PAGES 
00000000'EF 51° 01 OF 9¢ 070 CMPL R1,BOOSGL"SPTFREH ; ENOUGH LEFT 
E7 14 OFA 071 BGTR : BRANCH YF NOT 
00000000'EF 51 DO OFAS Ore MOVL  R1,BOOSGL_SPTFREL ; RECORD THE ALLOCATION 
51 56 ce FAC 207 SUBL : ; FIRST SPT INDEX 
52 51 09 7 F AF 074 ASHL #9,R1,R2 ; FORM SYSTEM VA OF RMS 
00 52 1F €2 OFB3 2075 BBSS $ #VASV_SYSTEM,R2,35$ ; OR IN THE SYSTEM BIT 
OFB? 2076 35$: 
OFB7 2077 ; 
a4 4 ; SET UP THE ARGUMENT LIST FOR THE READ VIRTUAL CALL 
0134'CF DD OFB7 086 PUSHL W*SIP_L DSKCHAN : CHANNEL FOR THE 1/0 REQUEST 
21 D OFBB 81 PUSHL #3:6. RERDL ; FUNCTION CODE 
7E 56 09 8 OFBD Oe ASHL : BYTE COUNT TO READ (MAY BE > 65KB) 
2 DD OFC PUSHL : VA TO READ IN 
10 A4 DOF FC3 4 PUSHAL Re AVLEN (R4) ; VIRTUAL TO LOGICAL MAP 
08 AS DD FCG 089 PUSHL IMAGEVBN(R4) : STARTING VBN IN IMAGE 
FC9 OB? : NOW FILL IN THE SPT WITH DEMAND ZERO ENTRIES 
51 00000000'FF41 p FC9 bps MOVAL @MMG$GL_SPTBASECR1],R1 ADDRESS OF FIRST SPT ENTRY 
81 OE 1B FD1 944 40$: ASHL #PTESV _PROT, S*#PRISC _UR Ki, (R1)+ i STORE THE NEXT PTE 
‘9 56—CO*#F FDS 2091 SOBGTR RG, its ; LOOP THROUGH ALL PAGES 
10B7'cF § 6006 SCO#F FDS 3 CALLS »W*Q10_RWVB READ RMS 
3 E9 OFDD 209 BLBC : BRANCH IF ERROR 
00000000' EF DO FeO 94 MOVL *MMGSGL_RMSBASE : SET RMS BASE ADDRESS 
00000000 "Ef 00000000'EF DO OFE 95 60$: MOVL magse L _RASBASE CTLSGL_RMSBASE - SET RMS BASE FOR THIS PROCESS 
1 Q0000000'EF oD Fre %6 MOVL EXesct~ SYSUCB,R > GET SYSTEM DEVICE UCB ADDRESS 
C Al 04 OFF 9 CLRL =—s UCBSL_PID(R1) : DEALLOCATE SYSTEM DEVICE 
| 
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OF THE DUMP FILE. THIS WA E ECAU 
OULD BE FULL AND THE BUG_ CHECK INFORMATION” 


RESTORERL: ; RESTORE ERROR LOG INFORMATION 
OVAB UFFER READ INTO 


het tp 


LAND “t THE S_FOR A 
E és te AND SUBSEQUENT nt pata PL 


_ 


ST. 


“rum 
adc 


OOOOOGCOOOCOCOCOCOO A- 


Tee Se Oe Se Se Se Se Se ee See 


amt 


mm 
aw 


LBUFFER,R4 
RSEQ QUENCE NUMBER 

: BRANCH IF ERROR LOG ENTRIES TO SAVE 
; NO ERROR LOG ENTRI 

; SET NUMBER OF Sey LOG BUFFERS 
; POINT TO NEXT BUF 


—Ooow-9 OO 
WwPpmo—nrummn 


“SI 
“SIP~ 
0$ 
Sy 
18¢ 
RLSB_ ASGCNT(RS), R11 


=z 

So 

< 

Ps 
omunnZ—£ x 


$y sou Le COMPLETED MSGS IN BUFFER 


B 
MOVZBL ERL$B_BUSY(R4) ,R7 
ADD R7, RIT 


T 
z : et COUNT OF INCOMPLETE MSGS IN BUFFER 
MOVZWL HS ene RL$C_LENGTH>,R7 


; GET TOTAL # OF MESSAGES T 
BY IN ag “fh 
; EMPTY BUFFER 


57 F4 
56 08 AG 04 sUstS ERL SL. NEXTERG) ERLSL END 


SIZE 
CHECK FOR REA SONABLE POINTERS 
TRY NEXT BUFFER 
: COMPUTE ALLOCATED SPACE IN BUFFER 


PODPOA HL WNL BME SVWWT 


pi 
SU R6 
MOVZBL feAL SC COLENGTH, R10 ; 
30$:  MOVAB Cray 
pemase LENGTH,R8 ; POINT PAST MESSAGE HEADER 
; SAG gsize 


“ 
oc 
rs 
yf ho et 4 pty Of ele oon 


w 
~o 
~ 
o 
> 
co 


ADDL 
MOVZWL ERESU SIZE (R85 ,R9 
BEQL 
SUBL R9 R? 
TSTB  EMB$B_VALID(R8) 
CMPB MBSB_BUFIND(R8) ,#1 
* MBSK_LENGTH,R9 
J B ERLSALLOCEMB 
PUSHR #*M<RO,R1,R2,R3,R4,R5> 
MOVCS —R.( 
POPR »R1,R2,R3,R4,R5> 
JSB ERLSRELEASEMB 
ADDL rernt LENGTH,R9 
t+ AD 
50$:  SOBGTR Rite 
80$: RS N 
MOVAB W@SIP_A_ERLBUFFER GET A 
MOVAB DMPSI ~ERASHERL ¥ERBSK peed ik 
MOVZWL EMBSWSIZE(R4),R : G 
L  #EMBSR_LENGTH, ag : SE 


ERLSALLOCEMB 


NULL = ERR 
: CHECK FOR Pit i ALLOCATED BUFFER 
; NO SKIP REST OF BUFFER 

S THIS A VALID MESSAGE? 
: BRANCH IF NOT 
01 ; ¢ FURTHER CHECK ter Ft aa 
3? 


51 
00008090"¢F 


_» Si 
mm 
Om rrw>,r 
OfOooo oc 
DOOM PY “WM ONWOOM Pwr -WOOY 


oa 
™m 
WMVIMOM  AUVIWUIT UF 
—MOOnrworuns-" 


MBoOL RW OMO"WDSO 


ow 
Ws 


“ 
— 
S 
>o 
nan 


= 
oo 


IRST PAGE FROM DUMP 
DR ed CRASH ERi ENTRY 


FFER TO ALLOCATE 
IN ERROR LOG BUFFER 
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ww 
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wo, 
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00000000 EF 


SYSIN = SYSTEM INITIALIZATION PROCESS SEP=1984 AX/VM ° v0 ? 
b0 RESTORE ERROR LOG BUFFERS Meret ohe Beideee PSRs TRE ceeseyeinrs mans, | 20% (83, 
FEC .SBTTL RESTORE ERROR LOG BUFFERS 
FRC : THE FOLLOWING LOOKS AT THE FIRST 3 PAGES OF THE DUMP FILE. IF THERE 
FRC IS INFORMATION IN THE FILE, IT THEN LOOKS FOR ERROR LOG ENTRIES THAT 
FRC REMAINED IN THE BUFFERS AT THE TIME OF THE CRASH. THESE ARE REMOVED 
FRC ACED 1 R L0G THE ERROR LOG ENTRY 
FRC G BUFFER P 
FRC SYSTEM PRI 
i het 
DO 
FRC 
FRC 
FRC 
FRC 
01 
05 
07 
OA 
D 
12 
16 
18 
3 
i 
E 
; 
4 
3 
B 
F 
1 
4 
6 
9 
B 


matsinpeesibaiigeindones —~ 


| 
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SYSINIT = SYSTEM INITIALIZATION PROCESS 16-SEP-1984 0:02 YAX/VMS Macro v04-00 Page 4 
v04-000 RESTORE ERROR LOG BUFFERS gr sen 18 4 ge bo: 98 EOYSINT  SREISYSINIT MAR: 1 9° (33) 
06 50 £9 1093 2157 BLBC ~—_-«RO, 90 ; BR ON ERROR, NO SPACE AVAILABLE 
F 1 36 1 8 PUSHR #*M<RO,R1,R2,R3,R4,R5> +: SAVE MOVE REGIST RS 
62 64 59 1098 21 MOVC3 RO, (R45, (R2 : COPY ERL ENTRY INTO ERROR LOG BUFFER 
F BA 109¢ 16 POPR #*M<RO,R1,R2,R3,R4,R5> : RESTORE MOVC REGISTERS 
90009090; EF é 1 Hi 1 JSB ERLSRELEASEMB : MARK MESSAGE COMPLETE 
QOOO0000'EF 0124°CF OD a 908; MOVL W*SIP_L_ERRSEQ,ERLSGL_ SEQUENCE ; RESTORE CURRENT SEQUENCE MESSAGE 
Q00000000'EF 16 , , JSB ERLSCOLDSTART + LOG STARTUP 
Q 166 ; INITIALIZATION KERNEL ROUTINE COMPLETE 
50. (01 3¢ 108 168 MOVZWL #1,RO : GIVE SUCCESS 
4 10B6 21 RET 


=< 


‘3 
LIZATION PROCESS 16-SEP-1984 02: AX/VMS Macro V04-00 9 
dor Urite Virtost Block Sasepaiobe BELOcsee Paxeladeneseveinisoman:: ame ($8, 


-SBTTL QIO_RWVB = Read or Write Virtual Block 


; rune ttenet Description: 

s routine maps the specified virtual blocks to logical blocks 
and reads or writes the desired number of bytes to or from the 
specified location in memory. 


or 
= 
om 
maw 
<- 
<m 
oz 


Rect inp pe sequence: 
arglist,Q10_RwvB 


sngutes 
Q10_RWVB_VBN(AP) = Virtual Block Number 
QIO-RWVB-MAP (AP) = Mapping info for virtual to logical mapping: 
of bytes of hth igvat pointers following 

count of LBN's in first rtrv ptr 
starting LBN te first rtrv ptr 
count o CBN’ s in second rtrv ptr 
starting LBN in second rtrv ptr 


oe BOWDWDODOOIOOOOOOwW 


Pete Se Ge Be Se Ge Se Be Se Se Se Se Se Se Se Se Se Ge Se Se Be Se Se Se Se Se Se Se Se Se 


Stitt ttt ttt ttt ttt 


1 

: count of LBN's in Last rtrv ptr 

4 EOF CAPS LBN in Last rtrv ptr 

5 Q10_RWVB_BUF (AP = Buffer Address to read int tg 

$ GIO-RWVB_BYTCNT(AP) = eyes count to read yet to 31 bits) 
QIO_RWVB_FUNC(AP) = #IO$_READLBLK or #10$_WRITELBLK 

3 QIO-RWVB-CHAN(AP) = Channel assigned to disk 

0 ; Outputs: 

1 . = Status 

§ ALL other registers preserved 

5 


fu 4, POSITIVE ,<- 
_VBN,= 


RWVB_FUNC ,= 


SOF 
QIO_R 
Q10- 
Q10-RWVB_BUF ,- 
Q10- 
Q10- 
Q10. RWVB_CHAN = 


oe ee ot 4 4§ OOO OOO @- 9 8 3 8 i at a ki nk at at ak kt a Ss 2 


Q10_RWVB_VBN: 
Q10"RUVB-RAP: 
Q10-RWVB~BUF : 
Q10-RWVB- “BYTCNT: 
Q10-RWVB-FU 
5 C1OLRWVB- CHAN: | 
18 @10_Ruve: | 
OFFC 1 WORD anche. R3,R4,R5,RO,R7,RB,RP R10. R11> 
1 ASSUME Q10_RUVB_MAP EG al Rwve_ ‘ | 
53 AC 7D 1 MOVa = QIO-RWVB"V BN(AP) YRS = VBN, RG = Map 
6 OC AC 00 ; MOVE —IO“RUVB"BUF CAP): : RO = Buffer address | 
2 ASSUME QIO_RWVB_FUNC EQ cape 


6 3 
QIOLRWB ="Read or Write Virtual Block S-SEP=19Be Sasdesed LSVSIME.sRessySinri man;1 "9° (38, 


10 AC 7D 10C¢ 3 MOVa QIO_RWVB_BYTCNT(AP) RO ; RO = whee count, R10 = function 
18 AC 10¢ 4 MOVL Ql =RWVB CHANCAP) , aii: Ris, : adr or channel 
FD 8F 10¢ 5 ASHL : RS = rtrv ptr quad words 
10CE § 7; RO = adr of Ist rtrv ptr 
50 84 7d 10¢ 10$ MOVQ aye ; RO = # of LBN's in this rtrv ptr 
10D 8 ; R1 = Start ng LBN in this rtrv ptr 
53 50 C2 1001 SUBL RO,R3 : Is desired VBN covered 
10D4 ; by this retrieval pointer? 
19 10D4 BLSS eos 3 prench if yes 
FS 10D SOBGTR R5,10$ ; No, get the next rtrv ptr | 
0 11 10D BRB 60$ ; Desired V veN gbevond EOF 
7340 1008 4 20$ MOVAB =(R3)CROJ,R3 ; 1 
10DF 5 3; Number of PP ocks from the 
10DF § ; be ene of this rtrv ptr 
1 CO 10DF ADOL R3,R1 ; Ad ques starting LBN 
0 3 f : FS 3 sux : RO ; and LBN count 
50 84 7D : + rt 30$ MOVa (R4)+,RO0 ; Get the next rtrv ptr 
10EA 4g ; RO = number of blocks that can be read in this portion 
1vsA re ; R1 = starting LBN to read from 
59 D 10EA 45 dos PUSHL 3 Save desired byte count 
50 9 8 10EC re ASHL #9 .RO RO : # of bytes that can be read 
50 9 Di 10F 4 CMPL ROR 3; If fewer are needed 
re; Beg 4 BLEQ 50$ ; Then read the smaller number 
59 0 vdO 10F 4 MOVL RO,RO ; Otherwise read all we can 
6 59 C2 10F 50 50$ SUBL R9, (SP) : 
5 51 DO 10FB 51 MOVL R1,R ; Starting LBN of read request 
11 10 10F 5 BSBB =s-«Q10_RWLB : Read or write the file 
59 8— oO 110 5 MOVL (SPY+,R9 : Recover byte left to be read 
15 110 54 BLEQ 90$ 3; Branch if all done 
08 E9 1105 55 BLBC RO,90$ : Branch if read error 
oc F5 1108 2$ SOBGTR ; Get the next retrieval pointer 
0000'BF 3C 1108 2257 60$:  MOVZWL #SS$_ENDOFFILE,RO : Indicate EOF error 
04 1110 58 90$: RET 


Note how much is left to be read 
| 


a ' 
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Sapa NITIALIZATION PROCESS a P=1984 07: 10:08 yeueyer Macro ypa-00 Page On 


Read or Write Logical Block SEP-1984 SYSINI.SRCJSYSINIT.MAR; 1 


” 
<= 


from/to the boot disk. | 
Cosi ing Foquen 


ce: 
G10_RWLB 


Inputs: 
uffer address (updated) 
cal block number (updated) 
Y e count to transfer (up to 31 bits) 
OS_READLBLK or 4 ap ae ELBLK 


Ozorqo 


hannel assigned to disk 


$s 
R1,R6-R9 altered 
ALC other registers preserved 


10S1ZE=127 
areas: 


UBL #8,SP 
10$:  MOVZWL #108126 512.7 

CMPL —sR7, RO 

BLEG ©=-208 
208: MOVL SP,RO 


0000007F 
2 Reserve an I10SB8 

Assume maximum transfer 

Minimize with file size 

Smaller than remaining file size 

Set to remaining file size 

Address of I0SB 


Event flag 
Channel 
Read or write logical block 


1/0 Status block address 

Buffer address 

Byte count to transfer 

Logical block number 

Branch if error 

Get completion status 

Branch if completed successfully 
Branch if 1/0 is still in progress 


MEW 9 ODN UNE WN OOOO UNE US" OWOOONOUM 


PN KH LPL PLES PEM O OL A SS St tt 


wo 


BLBC Oi 
MOVZWL  ( 
BLBS sR 
BEQL © 708 


: Error from Q1/0 
Sos: CMP RO #SS$_INSFWSL : Insufticient working set? 
8 106$ ; Branch if not, report error 
ASHL #-1,R7,R7 : Try again with half the byte count 


e°xiFF OR? 
BRB bs 


The following magic with event flag 0 and the IOSB is to take care 
of the case that the event flag was set for some reason other than 
the completion of ats particular 1/0 request In that case, the 
only real completion information is the [0S8 itself. The sequence 
must be to clear the event flag, check the I0SB, and then wait again 
for the event flag. 


; Use an integral number of pope 
; Branch if something left to transfer 


T 
e 
ar -SBTTL QIO_RWLB = Read or Write Logical Block 
: Funct ional Description: 
4 ; This routine reecadurstes the specified logical block numbers 
Couldn't even transfer 1 page 


tt I  § AQODDOODOOOSC DO OOOO OHN OO OW 09090909 09 09 0909 08 SI NINN NIO OO 


NOUS WO OONOUE WO 
ow 
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SYSINIT - SYS NITIALIZATION PROCESS 16-SEP=1 0:0 AX/VMS Mac 
v04-000 QI0_R Read or Write Logical Block Bree p at 584 ve 08; % t i 


domes 


OYSINE eRe deve Ne emaR:? 28° (Se 


£2 


1 $: puariee $ 40 : Wait for event fla 
tt SCLREF_S # ; Clear the event flag 
nOVZUL” (3p). RO 3 Fetch 1/0 ssetus F ciised 
: Branc not ¢ ete 
6 BLBC RO,100$ ; Branch if error vA 
: ; 1/0 completed successfully, see if there is any more to do 
: $0$:  ASHL #-9,R7,R1 ; Block count 
ADDL R1,R8 ; Starting LBN for next piece 
ADOL R? Re 3; Starting Buf Adr for next piece 
SUBL R7,R 3; Count bytes tranferred 
BGTR 10$ 3; Branch if another transfer to do 
1 100$ ADOL #8,SP 3; Clean off I10SB 
2 RSB 3; and return 
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SYSINIT = SYSTEM INITIALIZATION PROCESS 16-SEP-1984 :10:0 AX/VMS Macro v04-00 Page 
v04-000 SIP_INIWCB = ALLOCATE AND INIT A WINDOW aoe BF: b2: 08 YOYSINT  SRETSYSINI? MARS 1 ° (38) 
i} } 5 ; -SBTTL SIP_INIWCB = ALLOCATE AND INIT A WINDOW CONTROL BLOCK 
1 ; + INPUTS: 
1191 : R2 = ADDRESS OF MAPPING DATA 
133) 40 ; # of bytes o retry val pointers following 
1191 41; count of LBN'’s in first rtrv ptr 
1191 42; starting LBN in first rtrv ptr 
1191 435; count of LBN's in second rtrv ptr 
1191 44 ; starting LBN in second rtrv ptr 
1191 45 ; 
13) 8 ma 
1191 48 : count of LBN's in Last rtrv ptr 
1133 2 3 starting LBN in Last rtrv ptr 
1191 : OUTPUTS: 
1191 : : R2 = WINDOW CONTROL BLOCK ADDRESS 
1191 54; R oR) Be ALTERED 
1191 55 3 R4,R5 PRESERVED 
1191 2 3 RETURNS IN LINE ONLY IF SUCCESSFUL 
113) : ; FATAL ERROR IF FAIL TO ALLOCATE A WINDOW 
1191 35 SIP_INIWCB: 
51 82 DO 1191 60 MOVL (R2)+,R1 sSIZE OF RETRIEVAL POINTER 
53 QOO000000'EF DO 1194 61 MOVL EXE$GL_SYSUCB,R3 SYSTEM UCB A 
00000000 ' GF 16 1198 $6 JSB Sor i RgTNIWCS ;ALLOCATE AND INIT THE WINDOW 
0150 €9 11A1 6 BLBC RO,10$ ;BRANCH IF FAILED 

05 By $ RSB 

9E 11h 66 10$: MOVAB W*INIWCBERR,R1 ; ERROR INITING WINDOW CONTROL BLOCK 

30 11AA 367 BSBW SIP_FATAL ; 


‘— 
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SYSINIT ° 5}? 


Sipinit matt 16-SEP-1984 OF 10:08 AX/VMS Macro V04-00 Page (3) 


CESS 
MEMORY “SEP-1984 SYSINI.SRCJSYSINIT.MAR;1 
«SBTTL ALLOCATE NON=PAGED DYNAMIC MEMORY 


3; Functional Description: 
: This routine allocates and zeroes the specified number of 
bytes of wonapagre Gyneaté memory. If the allocation fails 
deallocates the FIL OPENF ILE cache if has not already been 
deallocated and tries aga 


ae 
oz 
ze 
ar 
me 
om 


n. 


: Cott tng Sequence: 
SBW SIP_ALONONPAGED 


; Inputs: 
: R1 = Desired number of bytes to allocate 


; Outputs: 
: RO 
R1 


= Status 

No. of bytes allocated if successful 
Address of block allocated if successful 
Block is zeroe 

ALL other registers preserved 


$1P_ALONONPAGED: 
PUSHR 


3A so«BB #°M<R1,R3,R4,R5> ; REMEMBER 
+ SAVE OTHERS FROM 
00000000'GF 1 G°E XE SALONONPAGED : ALLOCATE NON=PAGED MEMORY 
1150 € RO, 30$ : BRANCH IF SUCCESSFUL 
00000000'GF 0 TSTL G*FILS$GQ_CACHE : CACHE STILL ALLOCATED? 
13. «1 : BRANCH IF NOT, ALLOC ERROR 
D9'AF 00 FB #0,B°SIP_CACHE_DALC : DEALLOCATE FILSOPENFILE CACHE 
51 6€ OD MOVL  (SP),R1 : RECOVER SIZE TO ALLOCATE 
6 11 BRB : AND TRY AGAI 
BB 30$: PUSHR #*M<RO,R1,R2> + SAVE RETURN INFO FROM MOVCS 
62 51 00 62 Q C MOVCS #0,(R25,#6,R1, (R2) + ZERO THE ALLOCATED BLOCK 
07 ~=«BA POPR #*M<RO,R1,R2> : RECOVER STATUS, SIZE, ADR 
SE 04 CO 40$ ADDL . : CLEAN OFF SAVED SIZE TO ALLOCATE 
& BA POPR #*M<R3,R4,R5> : RESTORE OTHER REGISTERS 


.SBTTL DEALLOCATE FILSOPENFILE CACHE 
; KERNEL MODE ROUTINE TO DEALLOCATE THE FILSOPENFILE CACHE 
$1P_CACHE DALC: 


SIZE FOR RETRY 
ROM MOVCS 


SoC OC TCC ITV VTFCOCOCWWW>>>>>r rrr Yr rrr Yrrrrrrrrrrrrrr m= 


a dd dd 
a a hh ET 
OOOO OOVODWOW—"DOwVFSOMouwwnnoovovlovVvlvVlT Vl CVVTVVTVVVVVCCV"TC0C0_00 


MR ss OOOO OOOOOO 


BBB ANAM AAA AAA AAA AAA AAA AAI 
DO0O0000000DDWWDMDDDWONINNNNNNNN Oe 
oo VEWN —OODNOULWNOODNOULWN=O PP 

— Sete Ge Ge Ge Ge Ge Se Sete Se Sete Sete Gees 
o 
« 

fal: ed) 

>muor wn 

-o340m 

“cen “mn 

nm” 


OOO NO NEU OOD NOUE WIN OO 


009¢ “QORD “M<R2,R3> 
51 00000000" GF mova G°FILSGO_CACHE.RI ; R1 = SIZE, R2 = ADR OF CACHE 
ras E BEQL + BRANCH | 
“gf ? EA cLRG G*F IL$GQ_CACHE : DISABLE THE CACHE 
0000 ‘GF if} ED JSB GTEXESDEANONPGDS17 ; DEALLOCATE FILSOPENFILE CACHE 
0° v0 F3 10$ ROVE S*#SS$_NORMAL ,R : INDICATE SUCCESSFUL COMPLETION 


ia = 
: NOT PRESENT 
| 
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- SYSTEM INITIALIZATION PROCESS 16-SEP-1984 02: v04-00 Pa 5 
SIP ERRORUMESSARE OUTPUT Breer teas Beibe see PONS INE acse Yen lla. Page (53, 
NE 4 4 : .SBTTL SIP ERROR/MESSAGE OUTPUT 
I1E2 3486 ; FUNCTIONAL DESCRIPTION: ; 
11F7 26 : ; THIS MODULE IS CALL TO D AN ERROR FOR THE ; 
11 4 ; SYSTEM INITIALIZATION pro ; 
Hef 4 ; CALLING SEQUENCE: 3 
11F7 0633 ; BSB SIP_FATAL ; DISPLAY ERROR AND EXIT : 
11F7 2434 : BSB SIP"SYSMSG + TO DISPLA A SYSTEM ERROR AND RETURN ; 
11? 435 ; BSB SIP" ROMSG : 10 DISPLAY AN ERROR WITH VALUE IN RO r 
2F 10 11k? 4 6 BSB SIP"T¥POUT : TYPE OUT A MESSAGE ; 
I1E9 3438 ; INPUT PARAMETERS: ; 
119 440 : FOR SIP_FATAL AND SIP_SYSMSG: ; 
1E9 364g : RO 1S ERROR CODE ; 
11F9 443 ; R1 1S ADDRESS OF COUNTED MESSAGE STRING : 
WE9 3445 ; CALL AT SIP_TYPOUT WITH: ; 
11F9 409 ; RO = BYTE COUNT : 
11F9 448 ; Ri = ADDRESS OF STRING : 
11F9 3450 ; OUTPUT PARAMETERS: 
1169 43¢ : THE MESSAGE IS DIS PLAYED AND AN IMAGE EXIT IS EFFECTED IF ; 
11F9 2453 ; ENTERED AT SIP_FATA ; 
HS Sie = : 
11F9 26 : S1P_FATAL: : 
5 DD 11F9 245 H : SAVE ERROR 3 
: 10 11FB 438 BSB s1P SYSMSG OUTPUT MESSAGE ; 
00000000 ' 9F 1 £B iF ie CALLS #1,@#SYSSEXIT : TAKE EXIT WITH STATUS : 
1 4 3 : 
4 is : ROUTINE TO PRINT MESSAGE WITH SYSTEM ERROR CODE : 
1204 2464 ° 
1 i SIP_SYSMSG: 
05 BB 1 4 : PUSHR #<*M<RO,R2>> ; SAVE ARGUMENT AND A REGISTER 
1 OD 1 46 PUSHL 1 + PUSH ADDRESS OF THE TEXT STRING 
52 O13A°CF DE 1 4 MOVAL ue 1P_Q L INBUF +2 .R2 : GET THE BUFFER DESCRIPTOR 
2 6 8 1 46 vu d= CR : SET BUFFER LENGTH 
6 F 1 4 PUSHAQ tr + ADDRESS OF BUFFER DESCRIPTOR 
6 F 1212 267 PUSHAW (R } + PLACE TO RETURN LENGTH 
E58 CF F 121 47 PUSHAB W*FAOER + FORMAT STRING 
00000000" $F FB 1218 247 CALLS #5, a#SYSSFAO : FORMAT THE MESSAGE 
0 62 3C 121F 247% MOVZWL (RO) > GET LENGTH 
51 04 a2 DO 1 475 MOVL  4(R25,R1 + BUFFER ADDRESS 
06 BA 1 476 POPR #*M<Rd> ; RESTORE CALLER R2 
47 : FALL INTO TYPE OUT 
1 ors SIP_ TYPOUT ; 
03 eB 1 48 SHR #*M<RO,R1> : SAVE BUFFER AND COUNT 
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«SSTTL SIP_LSETTIME = SET SYSTEM TIME TO CORRECT VALUE AT STARTUP 


THIS ROUTIN 
TO INITIALI 


; INPUT PARAMETERS: 


NONE 


; IMPLICIT INPUTS: 


ie 


;++ 
; FUNCTIONAL DESCRIPTION: 


CALLS_THE LOADABLE 
THE TIME-OF=DAY R 


TIME-OF =DAY PROCESSOR CLOCK. 


; OUTPUT PARAMETERS: 


RO,R1 = DESTROYED 


; IMPLICIT OUTPUTS: 
EXESGQ_SYSTIME - sot rosy 


IP_SETTIME: 
«WORD 0 
B EX 
MOVZWL  S* 
RET 


$1 
) 


NIT TO 


DR 
$_NORMAL ,RO 


.END = SIP_START 


EG 


CPU-DEPENDENT ROUTINE, EXESINIT_TODR, 
ISTER AND SYSTEM TIME. 


URRENT TIME IN 100 NANOSECOND UNITS SINCE 
1858 00:00:00. 


SET CORRECT TIME 
ENTRY MA 

CALL CPU-DEPENDENT ROUTINE 
INDICATE SUCCESS 
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Symbol table ioe 97:40:08 YOYSINT  SRETSYSINIT MAR: 1 . (38) 
$.TA = 70 R 4 DMPSL_SYSVER = 64 : 
$$. TABEND = 8 R % DMP$S_PAGCNT = 09 18 : 
$.TMP = DMPS$V-EMPTY 2 o1 ‘ 
$$. TMP1 = DMP$V_OLDDUMP = 0 0 ; 
$.TMP2 = é DMPS$V_PAGCNT = 0 : 
$T1 = 1 DMP$W_DUMPVER = 6 ; 
CPINIERR 10F R 02 DMPSW_FLAGS s 04 : 
ATRSC_ASCNAME = 8 919 DSC$K-CLASS_S eeenenee =X 0% ; 
ATRS$S_ASCNAME = 56 DSCSK-DTYPE-T aeeneeee x 4 ; 
BOOSGC_SPTFREH teeeeeee KX 0 DVI$_FULLDEQNAM = 000000E8 ; 
BOOSGL ~SPTFREL tereeeee = X 0 EMBS6_BUF IND = FFFFFFFE ; 
BOOSIMAGE_ATT 00000085 RG 8 EMB$B_VALID = FREFFFFF : 
BOOSINI TPAGF IL teetenee =X EMBSK_LENGTH = £00008 ; 
BOOSINITSWPFIL eeeeeeee =X 0) EMBSL_CR_CODE = 000000F4 : 
BOOSL _D a4 = 00000020 EMBSW- SIZE = FFFFFFFC ; 
“DMP_SIZE = 900000 c ERLSACLOCEMB eeeeeeee xX 02 ; 
= 0000001 ERLS$B_BUSY = 00000000 ; 
BUGS mt PER ex TOR ekeneeee =X 03 ERL$B-MSGCNT = 00000001 : 
BUGS SYSTRMERR eeeeeeee = X 0 ERLSCOLDSTART tereeeeer xX 02 ; 
$C_uce = 00000000 ERL$C_LENGTH = 0000000C ; 
CHECK” CACHE OO000F 04 02 ERL$GC_ SEQUENCE aeeenere xX : 
CLUSGB_QD1SK reeks 04 ERLS$L_END = 00000008 : 
CLUSGL_CLUB eeeeeere 02 ERLS$L_NEXT = 00000004 ; 
CLUBS$L_CLUDCB = 00000084 ERLSRELEASEMB teeeeeer KX 02 : 
CLUBSL_FLAGS = 0000001C¢ ERROR 0000C 02 : 
CLUBSM_ = 00080000 EXESALONONPAGED renee x 02 : 
CLUBS$Q_NEWT IME = 00000094 EXESDEANONPGDSIZ ners xX 02 ; 
CLUBSQ_NEWTIME_REF = 0000009¢ ENESGLFLAGS *” @e : 
CLUBS$T_QDNAME = 00000088 EXESGL_FLA * Qe : 
CLUBSV~ CLUSTER = 90000600 EXESGL_SAVEDU w. 1 ? : 
LUDCBSL_QFLBN = 0000001C EXESGL STATIC wFLAGS ‘ » 62 ; 
CLUDCBSL_TQE = 00000914 EXESGL-SYSID_COCK eee rn 02 : 
CLUDCB$L_UCB = 0000000C EXESCL~SYSMSG eee ost X og ; 
CLUDCB$M_QS_READ = 00000008 EXESGL-SYSUCB teterers KX 0 F 
CLUDCB$S_DISK_QUORUM = 0000001 EXESGQ-SYSTIME aeeeeeee X 02 ; 
CLUDCBSW_STATE z eats EXE$GT STARTUP aeeeeeee XK 04 3 
CMNSYS 0000309 R 8s EXESINTT_TODR eeeeeere = = =6X 3 
CNX$D1SK_CHANGE tereeree 0 EXESINSTIMQ eeeeeeee KX 0 3 
CREERREND 00001 ¢ R 04 EXESSETIME_INT aeereree XxX 0 : 
CRELNMERR 0000095 R EXESSYS_SECTIO teeereee = X 0 3 
CRELNM_D 0000063A R EXESV PAGE ILDMP aeeeneee§ X 0 3 
CRELNM FATAL 0000632 R EXESV-SAVEDUMP aeeneree = X 0 3 
CREPRCERR 00001C4 R 04 xe Rv-3Y SPAGING aeeeeere xX 0 3 
CREPRCNAM 000001DD R 04 EXESV”-SYSUAF aeeeeeee =X 0 ; 
CTL$GL_CCBBASE eeeteree xX EXESV~xXQP URES TDENT aeeeenee =X 3 
CTLS$GL_PC eeeeeeee § xX 6 EXEC_MODE™ 000004 R 02 3 
CTLS$GL~ RMSBASE eeeeeeee xX FABSC_BID = 000000 3 
DEVSM_CLU = 0001 FABSC_BLN = 00 4 0 3 
DEVSM_FOR = 01 9 FABSC_F IX = 00 90) 3 
DEVSA_ANT = 00 FABSC_SEQ = 00 i $ 3 
= ° 1 FABSL-ALQ 2 8 001 3 
DAP eC “MEMDSCS1Z zs FABSL_FOP = 0004 3 
DMPSC_NMEMDSC : FABSL_STV = $ : 
DMP$L_CHEC = F ABSV_CHAN_MODE = 3 
DMPS$L~ CRASHERL s C FABSV_F ILE_MODE = $ 
D “ERRS zs 0 FABSV_GET = 1 3 
DMPSL_MEMDSC = 00 4 Ff ABSV_LNM_MODE s 0 3 
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$G0_CACHE 
$GT-TOPSYS 
NTwCB 
PENFILE 
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LNMSA- TERMINAL 
LNMS_ATTRIBUTES 
LNMS- STRING 
LNM_FILE DEV 
LNM-SYSTEM_DESC 
LOCRDOWN 
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LOCKERR 
LOCK_FLAGS 
LOCK=1D 

LOCK "NAME 
LOCK"NAME_DESC 


LOCK-NAME-SIZE 
LOCK-STATOS 


SSEp=1984 04:06: 


LOCK" STATUS_BLOCK 
MMG PT 


m 
MMGSGL~RMSBASE 
MMGSGL~SPTBASE 


G 
MSGFILNAMSZ 
MSGF ILXAB 
OERL 


NO_ATTR 
PAGFILERR 


PQL$~TQELM 
PQL$"WSDEF AULT 
PQL$ WSQUOTA 


RR 
RPBSC_MEMDSC 
RPBSC NMEMDS 
RTRVLEN 
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-SEP=1984 02:10: AX/VMS Macro V04-00 Page 
SYSINIT = SYSTEM INITIALIZATION PROCESS 1 ~SEP=1 210: 
Symbol table § SEP 1382 Vata YOYSINT -SReISYS NIT.MAR;1 3 
14 SIP_Q_FIBDESC R 2 

SAVABS = aiid 1C SIP_Q_LINBUF 99 4 3 
SCHSGL_CURPCB eereeere =X SIP_Q_PRVMSK 6 . f 
SCHSIOCOCKW eeeeeeee =X SIP"Q"-RETAD E 4 
SCHSIOUNLOCK eeereree =X SIP_Q_RTRVBUF FAR $ 
SCSS$GB_SYSTEMID eerereee 8 6X SIP_Q_SPIMAGE 4 4 é 
SCS$GB-SYSTEMIDH eereeeee 8 8§6X SIP_Q_SPINPU C . 
SEC BL = 00000001 SIP_Q_SPOUTPUT $ £ 4 
SECSM_PERM = 4 0 SIP"Q"-SPOUTXDT 3c R 
SECSM_SYSGBL = 8 SIP~Q"STARTUP ook é 
SECSV-RESIDENT = 000D S1P_Q_STATBLK : " 
SGNSGC_MAXGPGCT aereeree 8 =X 8 SIP_Q_TMPDESC 8 
SGNSGW" SWPFILES reereree x SIP_Q_TTNAME 07284 f 
SIP_ALONONPAGED O0011AD R 6 SIPASETTINE 448 3 f 
SIP“A_ATRLIST 0000014 R SIP_S = vines +4 494 8 
opraripee ee agoaoce R Og SiprsyensG 09001304 RO 
SIP-A_FILATT 0000 138 R 04 SIPATYPOUT 00001228 R 02 
SIPTATINDEXPH . $6000 : 63 S1PTXO MERGE poc0oc69 R 02 
SIP_A_INDEXFHDR = 00000000 R 03 SIP_ : 4 peenten ee 
SIP~A_NAMES 444 3 R 02 S$S$_BADIMGHD ep ac 05 
SIP~A_OPENARG 4's 4R 04 12 tecy' de sania. . 05 
SIP_CACHE_DALC 00001109 R sf soz~o nel eel Seen ee 
ae-Hunte Matters R $5 SSE -NOSUCHFILE eeeeeeee =X be 

“CLU- 00000468 R 
SIP_CLU_TIMOUT at 64 3 R 04 STAC_IMAGE SOOO oeee 62 
SIP-C_DOMPVER = 006000 3 STAC_OPER 90000496. r 
SIP-C-FIB SIZE = 0000001 STAC_PRC 
SIP~C_LINBUF S12 = 444 gree aney ask 44 . Oe 
SIP_C_MINPAGF IL = 000001C4 : 314 90000000 
SIP_FATAL OO11F9 R 0 | seseese den Wy" 
Sipser fondest sooggray BS uprfta sccucaee v8 

v 
SIP_~IMAGE_ATT 300049 R ; SVSEASSIGN peaneses Gx 8 
SIP_INITPAGF IL 0000 £6 R 0 ayeeche eee ceabenee.7ae 8S 
SIPTINITSUP $00 : ; SYSSCMKRNL aeeneeee GX 0 
SIP~INITSWPFIL 14k SYSSCRERNL eee a ae 
SIP_INIWCB 0001191 R svesteeL ie oe ae 
S1P“LOOKUP ar as SYSSCRMPSC teeeeeee GX 0 
SIP_LOOKUP_QFILE 0825 R ¢ srescerees ieommeuny ae: ta 
SIP~L_DSKCRAN 4R r HS Seeeenne. 0 
SIP_L_ERRSEQ 4R r Syese ary “0 ese : 
He ee 4 4 SYSSEXPREG eeeeeeee GX 
SIP_L_RMSATT R r SYSSFAO ost + 
SIP_L_RTRVLEN R Syescevoviu cenanene. a 
SIPC TTCHAN eR 4 SYSSGETMSG eeereeee GX 
SIP_L_TTCHAN DC R 4 SYSSINGACT eataehe’ a 
fog 0 Mk ¢ SYSSIMGF IX eeeeeeee GX 
SI1P_QD_CHAN 0 FIR SyeSOPEN soaneune Gn 
SIP_QD_DESCR 00 FO R ? a yesarou Souspeaunt aa 
stp apn tae > 4 4 SYSSSETIME eeeneeee GX 
Saat 4 4 SYSSSETIAR eeeneene GX 
4 ae EN Re 4 SYSSTRNLNM eeeeeere GX 
S1P_OF BUFFER YR $ TER eeeneeee GX 
1p ~ oF -DESCR H R r aye 1b HOEK ERR ea eo R 
SIP" ar“ NANE SIZE 2 4 SYSUAFALT 4R 
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SYSUAFALT_LEN 
SYSUAF _D 
SYSUAF ITALST 
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ERMINAL_CONCEALED_ATTR 
$L_TOFL 
UCBS$L_DEVCHAR 
UCBS$L_DEVCHAR2 
UCBSL_PID 
UCBSL_STS 
UCB$V~VALID 
UCBSW-REFC 
VASV_SYSTEM 
XABST_FHC 
XABSC_FHCLEN 
XABSL_EBK 
XABSL_NXT 
XABSW-FFB 
XDTSSTART 
XQP$GL_DZRO 
XQP$GL_ SECTIONS 
XQPERR 
XQPF AB 
XQPNAM 
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0 yaxcyns Macro 
4 SYSINI.SRCJS 
XQPNAMSIZ 2 16 

XQP_DEF 24 R 4 
XQP_GSDNAM F4 R 4 
XQP"GSDNAM_ SIZ = O0A 

QP"GSD_DESC 1FE R 4 
QP-HEADER 48 R 4 
QP" INADDR 38 R 4 
XQP_NAME 98 R 4 
XQP"RETADOR 0243 R 4 
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Psect synopsis : See obe $F: 08:88 LOYSINT .SREDSYSINIT MARS 1 = (88) vo 


-oeeceecece sam ceceees $ 


! Psect synopsis ! 


$eeenecce sSeeceeee} 


PSECT name Allocation PSECT No. Attributes 

. ABS . 6° 0000 <¢ -)» Q0 ¢ -) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

SABSS 0000 if ( -) QO1¢ +1.) NOPIC USR CON ABS LCL NOSHR EXE AD WRT NOVEC BYTE 

SIP_PURE 88 129 ( 4752.) ¢ ( §°} NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 

SIP_RWDATA_PAGE 8 00 9 ( 15 8-3 ( -) NOPIC USR CON’ REL LCL NOSHR NOEXE RD WRT NOVEC PAGE 

SIP_RWDATA 000061 ( 1557.) 4 ( 4.) NOPIC USR CON” REL LCL NOSHR NOEXE RD WRT NOVEC LONG 
peonace meee ew newer ere eoeere$ 
: Performance indicators H 

Phase Page faults CPU Time Elapsed Time 

nitialization :00:00. :00:00. 

Initializati 29 0:00:00.11 00:00:00.66 

Command processing 140 0: O08 08 Boy 8e-dy 

Pass 1 819 0:00:39. 0:91:55.96 

Symbol table sort ! 0: 8: 5.04 0: 8: 8.74 

ass 41 0:00:09. 8 3: 21.37 

Symbol table output 1 0:00:00. :00: +88 

Psect synopsis output 8:8 .03 0:00:00.0 

Cross-reference output 8 :00: 9? 0: 9: 0-39 

Assembler run totals 140 0:00:55.26 00:02:31.91 


ine working set jiatt was 2550 pages. 
215249 bytes (417 pages) of virtual memory were used to buffer gre intermediate code 
There were 180 pages of symbol table space te to hold 3236 non-local and 115 
3 source Lines were read in Pass 1, produc ing object records in Pass 2. 
7 pages of virtual memory were used to define 90 macros. 


local symbols. 


goo eese oo + 


: Macro Library statistics : 


Macro Library name Macros defined 
“$52 38DUA B:58VS-08 124 18-8: 8 
$255$DUA28: (SYSLIBJSTARLET.AMLB;2 

TOTALS (all Libraries) 83 
3648 GETS were required to define 83 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SYSINIT/OBJ=OBJ$S:SYSINIT MSRC$:SYSINIT/UPDATE=(ENHS:SYSINIT) +EXECMLS/LIB 
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